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ABSTRACT 
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The  Depot  Maintenance  Planning  and  Programming  System 
(DMPPS)  is  a large  computer  system  developed  over  a period 
of  two  and  a half  years  hy  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center  ( DTNSPPC ) , Code  186  for 
the  Naval  Sea  Systems  Command  (NAVSFA),  Code  070T.  The 
Svstem  was  developed  to  project  shipyard  resource  require- 
ments (i.e.,  labor  mandays  and  costs  as  well  as  material 
costs)  by  shipyard  production  shop  and  by  shio  work  break- 
down structure  (SWBS).  It  enables  management  to  assess 
the  impact  on  the  shipyards  and  ship  systems  of 

•Changes  in  deoot-level  maintenance  alter- 
ations policy 

• Major  changes  in  force  levels  and  or  com- 
oos i t ion 

• Budgetary  constraints 

DMPPS  consists  of  a network  of  interdependent  computer 
programs  written  in  FORTRAN  IV.  It  was  developed  at  DTOSRDC 
using  the  CDC  6000  series  computers  and  was  subsequently 
converted  for  the  IBM  360/370  series  computers.  Tt  is  now 
installed  and  operational  at  the  NAVSFA  070  computer  terminal 
(which  accesses  an  IBM  370/168  computer).  This  document 
presents  the  IRM  360 '370  version  of  the  DMPPS  proqram  modules. 
The  modules  have  been  grouped  into  six  subsystems.  Fach 
of  Volumes  2-7  of  this  document  describes,  in  detail,  one  of 
these  subsystems.  An  oxecut ive  summnrv  of  the  entire  DMPPS  is 
presented  in  Volume  1.  The  content  of  the  seven  volumes  is 
indicated  as  follows: 


Volume  1 
Volume  2 
Volume  3 
Volume  4 
Volume  5 
Volume  6 
Volume  7 


Executive  Summary 
Preprocessor  Subsystem 
Alterations  Subsystem 
Repair  Subsystem 
Synthesizer  Subsystem 
Report  Conor a tor  Subsystem 
Feedback  Subsystem 


fa.  REPORT  GENERATOR  SUBSYSTEM 


DoD  Instruction  4151.15  imposed  certain  reporting  reouirements  on 
depot  level  maintenance  facilities.  In  particular  it  required  cost  and 
workload  projections  by  Ship  Work  Breakdown  Structure  (SWB S)  for  the 
current  and  five  succeeding  fiscal  years.  SWBS  is  used  to  classify 
work  with  respect  to  its  cause  or  purpose.  The  Report  Generator  Subsystem 
is  the  final  module  in  the  Depot  Maintenance  Programming  ano  Planning 
System  (DMPPS)  and  was  designed  to  meet  those  requirements.  The  subsystem 
consists  of  four  programs:  REPSHOP,  PREWBS,  REPWES,  and  REPMAT  whose 

functions  are  to  produce  summary  reports.  Forecasting  of  work  breakdown 


may  be  specified  by  SWBS,  by  Shop,  or  by  SWBS-Shop  Matrix  reports.  The 
program  XPLODE  (Volume  5 - Synthesizer  Subsystem)  generates  files  showing 
the  distribution  of  projected  workloads  among  the  nine  single-digit  SWBS 
categories  and  the  20  shipyard  production  shop  categories  (19  shops  ano 
"other  direct"  work).  The  program  PREWBS  (Section  6.2)  is  a preprocessor 
that  reads  the  SWBS  File  and  a Group  Definition  Card  Deck  defining  various 
ship  groupings.  Groups  are  identified  by  ship  type  and  hull  number  range 
combinations  and  may  encompass  broad  categories  such  as  surface  ships, 
amphibious  ships,  or  carriers;  or  may  specify  a single  ship  type  and  hull 
number.  The  program  PREWBS  creates  a file  which  has  as  a header  record 
the  ship  group  definition  ano  contains  all  availabilities  pertaining  to 
those  ships.  The  program  RFPWBS  uses  this  file  as  input  and,  with  a data 
deck  containing  material  factors  and  manday  rates,  produces  reports  on 
projected  direct  labor  mandays,  direct  labor  dollars,  and  material  dollars. 
Reports  may  be  generated  for  all  work  in  a given  shipyard  tor  designated 
shiD  qroupings  and  fiscal  years.  Additional  report  options  include  owner- 
ship (Navy  or  private),  coast  (east  or  west),  type  of  work  (work  on  active 
ships,  MAP  (Military  Assistance  Program)  work,  NRT  (Naval  Reserve  Train- 
ing) work  and  conversion  work)  as  well  as  a separation  of  repair  and 
alteration  work. 

Reports  produced  by  the  program  RFPSHOP  reflect  projected  workloads 
in  the  various  production  shops  pertaining  to  repair  work,  alteration 
work,  or  their  total.  Reporting  is  done  by  shipyard,  then  within  a 


vara  Dy  ship  grouos,  ana  within  grouos  by  year.  Input  cards  are  used 
to  define  ship  aroupings.  Workload  projections  may  be  formulated  at 
both  the  shipyard  and  individual  ship  ana  ship  group  level. 

The  program  REP MAT  forecasts  the  distribution  of  work  to  be  performed 
in  both  shops  and  SWBS  categories  by  producing  a matrix  for  a given 
shioyara,  ship  group,  ana  year.  The  manoays  are  spreao  over  the  produc- 
tion shoos  and  "other  direct"  cateaories  and  the  nine  sinol^aiait  SWBS 
cateaories  and  their  totals,  tormulatina  a 10-by-20  matrix.  Reports 
specify  repair  mandays,  alteration  manoays,  or  total  manaays,  according  to 
input  octions. 


.ir~  . xix. 


b.l  PROGRAM  REPS HOP 


6.1.1  DESCRIPTION 

RFPSHOP  is  a report  generator  that  produces  summary  reports  ot 
projected  workloads  to  be  performed  in  the  various  production  shop 
categories.  The  19  production  shop  categories  referred  to  in  these 
reports  are  as  follows: 


Shop  Numlx'i 


Shop  Name 


Ob  Central  Tool  Shop 

11  Shipfitter  Shoo 

17  Sheetmetal  Shop 

23  Forge  Shop 

2b  Welding  Shop 

31  Inside  Machine  Shop 

3b  Weapons  System  Shop 

3«  Outside  Machine  Shop 

41  Boiler  Shop 

51  Flee trie  Shop 

5b  Pipe  and  Copper  Shop 

b4  Woodworking  Shop 

65  Module  Repair  and  Maintenance  Facilities 

b7  Fleet ronics  Shop 

71  Paint  Shop 

72  Rigging  Shop 

61  Foundry  Shop 

94  Patternmaker  Shop 

99  Temporary  Service  Shop 

Those  areas,  in  which  productive  work  is  performed,  that  are  not  covered 
by  these  cateoor les  are  referred  to  as  "other  direct."  The  projections 
are  for  a period  ot  five  years  ana  reflect  total  direct  labor  manoavs  tor 
repairs  and  for  alterations.  The  program  uses  as  input  the  Shop  File 
created  by  the  program  XPI.ODF  (Volume  5 - Synthesizer  Subsystem),  a Group 
Definition  Card  Deck,  and  input  cards  defining  report  options. 


5 


1 ach  record  on  t he  Shop  Pile  corresponds  to  a record  on  the  Depot 
Maintenance  Assiqnmont  File  (DMAS).  It  contains  the  ship  type  am  hull 
nurr.tH'r , type  ot  woik,  shipyard,  sector,  ana  fiscal  year,  as  well  as  the  20 
ropau  manday  values  and  the  20  aitorat  ton  manday  values  projected  lor  the 
i'.ievaru  production  shop  cateoor  res.  (The  1 4 shop  catrx.  nes  am  "other 
direct"  will  oe  tel  or  too  to  as  the  20  shops.) 

Shop  has  been  deleted  1 1 on'  the  matrix  tor  leportinq  purposes, 

. ince  Charleston  Shipyard  is  the  only  yarc  that  uses  it.  Historical  data 
collected  to  date  tram  Charleston  showed  no  wot  k in  that  slxip.  In  the 
tuture,  1 1 woe  * l projected  for  shop  65,  it  will  be  eoirb  i ned  with 
•hop  t>6 . 

Reports  can  oe  aenet  a tea  tor  repair  nanoays,  tor  alteration  marxlays, 
oi  toi  the  total  ot  tx'th.  Any  t ive  t iscal  years  may  tx'  chosen.  Selection 
ot  shipyard  o made  t irst  and  ship  qroupinos  are  determined  within  a oiven 
varo.  The  aes ired  years  remain  constant  toi  all  reports. 

A Group  Detinition  Caro  Deck  net  i nes  the  ship  orouoitxts  which  may 
be  reported  on.  Since  the  user  may  det  ine  the  ship  oroupincis,  there  is 
oreat  flexibility  in  levels  ot  reporting.  A a roup  may  consist  ot  a smile 
••tup,  a ship  class.,  functional  ship  oroupinqs,  oi  any  combination  ot 
these.  Also  since  the  Group  Definitions  are  moot  values,  it  is  ouite 
simple  to  react  me  croups,  out  this,  should  not  be  necessary  as  provision 
has  been  made  for  100  ship  qroupinos.  Fot  each  oroupino  there  may  t\'  as 
many  as  six  sots  ot  lowet  am  upoot  ship- type  hul  l-iuimbot  rarne  combina- 
tions.. For  example,  surface  combatants  mioht  Iv  oesci  ibeo  by  the  toll ow- 
ltxi  oroupino:  ^\'  4 throuqh  CY4N  to,  cv  [O  throuqh  GVN  70,  DD  714  throuqh 
FIX’.  41,  FF  1047  throixih  FK4  7,  anu  iVl’  If  throuqh  CVT  If. 

A oroup  number  is  ass loned  to  this  oroupim.  This  oroup  number  is 
compared  to  the  one  requested  on  the  Yard  Option  card.  It  there  is 
ad  r cement , the  ship  typo  and  hull  nurnbot  are  examined.  Those  that  tall 
within  the  qrouoino  are  reported  on.  The  eupohi  1 lty  to  select  various 
drouoitxis  means  that  remits  can  Le  maoe  on  brood  catooories,  such  as  all 
surtaoo  ships,  ot  to  the  detail  ot  a sirxilo  ship  tyre  atxf  hull  numtx'r.  In 
the  sample  run,  work  projected  toi  all  GG-v's  was  desired.  Therefore, 


o 


- • . 


Group  1 w3s  defined  as  CGN  1 throuqh  CGN  9999.  Thus  every  hull  nunber 
between  1 and  9999  was  included.  Group  2 consisted  of  one  ship  and  was 
defined  as  CGN  35  throuqh  CGN  35. 

A type  A Yard  Option  card,  the  first  of  two  to  describe  the  various 
options,  contains  the  shipyard  name  and  the  word  "ALL"  if  the  entire 
yard  is  to  De  reported  on.  to  designate  the  type  of  work  desueu,  the 
word  "RFP"  for  repairs,  "ALT"  for  alterations,  ano  "TOT"  for  total  of 
repairs  ano  alterations  must  be  requested.  Any  combination  of  these 
options  may  be  selected.  In  addition,  the  required  years  to  be  reported  on 
are  input  on  this  card.  The  years  do  not  have  to  be  sequential. 

The  second  Yaro  Option  card,  a type  B card,  contains  the  yard 
name  ano  group  numbers  required  for  that  yard.  There  may  be  15  sets  of 
Yaro  Option  cards  with  as  many  as  25  groups  per  yard.  A Yaro  Option 
Terminator  card  follows  the  final  type  B Yard  Option  card  and  contains  the 
woro  "LAST."  A sample  input  set-up  is  shown  in  Figure  6.1-1. 

All  yard  information  is  read  at  the  beginning  of  the  program  ano 
is  stored  in  arrays.  The  first  record  of  each  yaro  on  the  Shop  File 
is  examined.  if  that  yard  is  not  reauired,  the  entire  yard  is  skipped. 
The  subroutine  SUM  is  called  to  process  the  data  for  each  record  in 
which  the  year  and  ship  type  are  among  those  reauesteo.  As  a yard  is 
completed,  subroutine  RFPOPT  is  called  and  data  are  extracted  for  reports 
by  year  ano  group  number.  Figure  6.1-2  presents  a hierarchical  dia- 
gram of  REPSHOP. 


YARD  OPTION  DECK 


HEADER  CARD 


GROUP 

DEFINITION 

OECK 


Figure  6.1-1  - Input  Deck  for  REPSHOP 


Ma  in  Program 


The  function  ot  the  mam  program  is  to  collect  data  for  summary 
reports  ot  projected  shop  workloads  toi  repairs,  alterations,  or  the  total 
ot  both.  It  uses  as  input  the  Shop  File  created  by  program  XPLODF  anti 
input  cards  det ining  the  report  options.  In  addition,  it  creates  a Group 
Definition  Data  Base  t ran  the  Group  Definition  Card  Deck. 

Subrout  me  BANNFK 

This  subtout  me  writes  a title  page  with  the  words  "SHOP  REPORTS . " 
The  date  ami  identifying  information  appear  in  the  upper  left  corner. 

Sub  rout  me  COMl'AH 

Subroutine  CQMPAR  is  called  for  each  shop  record  whose  fiscal  year 
is  among  these  requested.  This  subroutine  compares  the  group  numbers  to 
be  processed  tor  a given  shipyard  with  the  array  of  group  numbers  in  the 
Group  Definition  Data  Base.  If  there  is  agreement,  the  ship  type  ami  hull 
number  are  examined  to  see  that  they  tall  within  the  lower  ami  upper 
limits  of  any  of  the  selected  groupings.  Matching  group  numbers  are 
stored  in  the  JGROUP  an  ay  for  use  in  subroutine  REPORT.  A (lag  is  set  1! 
a match  has  been  found  and  the  data  processing  proceeds;  otherwise  an 
alternate  return  is  made. 

Subroutine  I IEAI MR 

This  subroutine  writes  report  ident it icat ion  information  in  the 
upper  lett  corner  ot  each  page  and  the  page  n umbei  on  the  right.  Shop 
reports  are  identified  by  the  number  "t>l"  followed  by  the  yard  number 
and  type  ot  report.  Yard  numbers  are  assigned  in  Subroutine  YDNO  ami 
earned  in  the  argument  list  as  "ID." 


Hu'  ulont  1 1 icat  ions  tot  ty|x-  ot  wot  k at  o a:'-  tollows: 

01  to  tojvuis 
00  lot  *iltotations 

til  tot  total  ot  topaus  aixi  al  t ot  at  ions. 

04  tot  all  t hi  oo  opt  ions 

Thoiotoio  61-00-00  woulo  t opt  osont  a t oixu  t ot  total  a 1 1 ot at  ions 
shop  tnaixiays  tot  l,otxi  lioaoh. 

Sul'tout  mo  IPURi'K 

Sut'i  out  ino  l IKI-OR  is  puIIim  tv'  muioato  look  v't  viata  in  any  t t\iuost  <m 
ship  ntoitpiixi.  An  ottv't  iiius.suiio  to  wt  itton  v'n  unit  aixi  is  not  intot 
.tx'tiM  with  t ho  siir.ni.  it  y totx'tts.  Whon  an  utxt-of- t t lo  mat  k is  oix'ountoi  t\i 
v'n  tlu'  Shop  lilt',  a nossaao  is.  wi  itton  ana  t In'  ptixit.vr  is-  t t't  nun.it  t\i. 


Suht  v'ut  lilt'  NV'SIH  1' 

NOSIIir  vlt'tt'Miinn's  tin'  ni  nit  H't  v't  ships,  m a viivt'ii  vitv'ttp  atxi  wi  it  os.  tho 
s.lni'  tvjv  atxl  hill  l nuint't't  s at  tho  top  v't  oaoh  io(\'it  fvivto. 

Sut't  v'ut  uit'  Kl'lWt' 


urno, 

t ho 

OPt 

ions. , 

atxi 

t hi'  .u 

I vlV 

s v't  data  v 

•v'l  It 

vt  i \ i 

Sill'i 

1 out 

inr 

1'llVlv 

r oxt 

t »K't  S 

t In 

- viata  oloiivnt  s 

t Ot 

S . 

•IN'S! 

t s , 

It  O IV.  lv  It  - t. 

> t'llMlI 

«' 

that  tht'tt' 

IS 

tl.lt  .1 

ost  t \ l 

'tip: 

1 1 

al  1 

U\'l  S.  i 

u'n< 

' in  an  out 

1 1 1' 

\\Uil 

It  l 

s s 

t v't  I 

m as 

t lit' 

t 11  St 

*Vh 

v'up  nunil'o! " 

1 m 

t ho 

IvH'  l' 

\t  1 

v 1 V ' t t 

'vi  as 

saiv'li . 

Tho 

t 1 

.wi  vh'l'T  is. 

USO 

vl  t O 

i it' t t't  nn  no  tilt'  typo  v't  mannay  puuk.i'io  loviuitt'vi.  ivlion  .VPT  i,  tho 
niatxtay  va  lilt's  t v't  tt'piii : trust  lx-  .xiviixi  tv'  t In'  iiuixiay  valut's-  tot  altota 
t iv'iis-  tv'  viivt'  tv'tal  iv.atxiays.  Tho  valut's  t.'i  a -livt'ii  vatu,  atoup  ntmilvt  , 
aixi  yoat  ait-  tianstottiM  tv'  tho  sul't  v'ut  i tit's  Kt'l'l , UP.rO,  KIP',  aixi  Ul'1'4  tv'i 
t mal  v'ut  put  . 


" TJ. 


Subi  out  me  RKl'l 

Subrout  ine  RKl'l  user.  the  lepair  mamlays  tot  a ‘liven  yard,  ‘iroup 

number,  anti  year  as  extraeted  by  subroutine  RKWRT  ami  writer,  them  in 
si  repot  t format  tot  tejxurs. 

Subrout  me  RK1’.’ 

Subrout  me  RSIV’  uses  the  al let  at  ton  mamlays  tot  a ‘liven  yam,  ‘itoup 
lurnilvr,  and  yeat  as  extracted  by  subroutine  RIWRT  ami  wt  iter,  them  in  a 
leport  tormat  tot  alteuit  tons. 

Sut't  out  me  RKK ' 

Subroutine  KKP.l  uses  the  total  ot  repairs  ami  alteiation  mamlays 

ca  leu  Uteri  in  subrout  ine  KTJXiRT  ami  presents,  them  in  a leport  toimat 
tot  total  ot  alterations  ami  tepairs. 

Subtout  lire  RKl’4 

Subrout  ine  KKI'4  uses  the  alteration  mamlays,  the  i ej  vi  1 1 mam  lays,  ami 
the  total  ot  ie[uit  ami  altei  at  ion  mamlays  toi  a ‘liven  yaul,  ui  oup  nmilvi  , 

ami  yeat  amt  presents  them  as  a t tit  o»*-  line  refxu  t . 

Subr out  ine  SKARClj 

Subroutine  SKARt'H  is  used  in  determinimi  wtiethei  a yatd  ne<xts.  to 
be  processed.  The  yard  name  i eao  tutu  the  Shop  file  is.  compared  with 
the  at  ray  ot  yam  names  nxiuostmi  by  input  data.  It  there  is  no  mat.h, 
subroutine  SKPYP  is  cal  leu  to  skip  to  the  n«*xt  yard  ami  an  alternate 
return  is  made. 

Subunit  ine  SKPYP 

This  subroutine  is  us«\i  to  skip  all  records  on  the  Shop  File  lelatimi 
to  a aiven  yard.  As.  e.x'h  record  is  read,  its  yard  n.ime  is  compared  to  the 
name  ot  the  yam  to  tx'  skipp'd.  When  a new  yatd  n.ime  apfXMi  s. , the  I lie  is 
backspaced  ami  the  piouuim  cont  inues. 

1 l 


j 


Subtout  me  SUM 

This  subroutine  suns  the  manday  values  ana  stores  then'  according 
to  group  number  and  year  in  an  array  tor  repairs  and  an  array  tor  altera- 
tions. Subroutine  SUM  is  called  with  one  ot  three  options:  (1)  to  sum 
the  values  tor  qiven  groups  but  not  tor  an  entire  yard,  (2)  to  sim  the 
values  for  an  entire  yard  but  not  tor  q roups,  (.1)  to  sun  the  values  tor  an 
entire  yard  as  well  as  for  qiven  qroups.  Values  are  stored  in  two  arrays, 
one  tor  repairs  and  one  tor  alterations.  The  t irst  subscript  refers  to 
the  qroup  number,  the  secona  subscript  refers  to  the  year,  ana  the  third 
subscript  refers  to  the  20  shops.  It  an  entire  yard  is  processed,  the 
aata  tor  it  are  stored  as  the  t list  "qroup  number"  in  1 1 it'  array  am  latet 
t reetoo  accord inq ly . 

Subrout ine  T I TU ' 

This  subroutine  is  called  by  the  subrout  me  RFPOPT  with  on  arqument 
designating  identifying  notation  to  be  written  with  the  data.  The  op- 
tions are:  (1)  TOT  A I PIKIX'T  Kl'PAIK  MANPAYS  CY  SHOPS,  (2)  TUTAI.  PIRFCT 

ALTF RATION  MANDAYS  UY  SHOPS,  (.1)  TOTAL  DIKFCT  Kl'PAIK  ANP  ALT!  RATION 
MANPAYS  BY  SHOPS. 

Subrout  me  Yl'AR 

This  subroutine  checks  the  t iscal  year  for  a qiven  data  record 
aqainst  the  array  ot  years  requested  by  input.  It  there  is  no  agree- 
ment, transfer  is  made  to  that  portion  ot  the  program  that  reads  the 
next  data  record  from  the  Shop  File. 

Subrout  ino^  YPNO 

Subroutine  YPNO  assigns  a nunibot  to  each  yarn  tor  icport  identifi- 
cation. For  example:  Charleston  is  01,  Long  Peach  is  02.  The  subroutine 
argunent  "IP"  is  transferred  to  subroutine  HKAPFK  with  this  identifying 
number  to  be  used  tor  report  iocnt it icat ion. 


0.1.2  RUN  SET-UP 


The  tol lowing  set-up  is 


used  to  run  the  REPSHOP  program  on  the  IBM 


360/370  computer: 


//NVSRFPS  JOB  IXXXXXXXXxx,XXXXXI,USrR,Cl»SS«C,riME*l,lM  .HSGLEVFl  *1 
//joatm  no  osninvsoi.ofpot.lib,oisp*smp 
//  FIFO  Pr,H  = RFSMOP 
//GO.FT3SFOOI  no  • 


REPSHOP  cxrd  Inputs  (unit  S) 


//Go.rnfcF'ni  oo  s»sour*«  ishop  reports! 

//GO. F T 0 FF  0 31  on  srsoui«»  IF  RROR  nfssxgfsi 

//r.O.FTUF  331  00  OSN«HVS3l.SMQP.EXPlO0F.n»T»,OtSP*SHR  IINPUT  F ILF  I 


6.1.)  I NPUTS 


Card  inputs  are  made  us in>i  unit  r>.  The  format  for  these  carcis  is 
shown  in  Sect  ion  6 . 1 . 3 . 1 . 

Unit  5-  Card  inputs  which  (1)  define  ship  qroups  by 
setting  lower  arm  upper  limits  on  ship  type  and 
hull  number,  (2)  give  identifying  report  infor- 
mation, ())  set  the  desired  options  ano  years 
required , (4)  determine  which  yards  and  groups 
are  to  be  reported  on. 

The  following  additional  unit  is  used  to  input  information  from  a 
disk  tile  created  by  the  program  XPLOPF: 

Unit  11  - Shop  File 

The  format  tor  this  tile  is  given  in  .Sect  ion  6.1.). 2. 


6. 1.3. 1 Unit  5 - Card  Inputs 


‘ 1 


Group  Detinition  Cards.  The  Group  Detinition  Deck  describes  the  various 
ship  groupings.  Two  cards,  a type  A and  a type  B,  are  required  to  dot  me 
each  group.  There  may  be  as  many  as  100  groups.  A group  detinition 
terminator  card  follows  the  last  type  B group  definition  card. 


Typo  A Group  Definition  Card 


Variable  Name 

Description 

Field 

Format 

IGRPNCK  I ) 

Group  Number 

1-3 

13 

GRPDEF( 1,1,1) 

Ship  Set  1 

Ship- Type/Hull-Number 
(Lower  Bound) 

9-lb 

A8 

GRPDFF( 1,1,2) 

Ship  Set  1 

Sh ip-Type/Hul 1-Number 
(Upper  Bound) 

20-27 

AH 

GRPDFFf 1,2,1) 

Ship  Set  2 

Ship-Type/Hul  1-Number 
(Lower  Bound) 

33-40 

AH 

GRPDFF( 1,2,2) 

Ship  Set  2 

(Upper  Bound) 

44-51 

AH 

GRPDFFt 1,3,1) 

Ship  Set  3 

(Lower  Bound) 

57 -b  4 

AH 

GRPDEF(I ,3,2) 

Ship  Set  3 

(Upper  Bound) 

bH-7  5 

AH 

i 


Type  B Group  Definition  Card 


Variable  Name 

Descr ipt ion 

Field 

Format 

GRPDFF( 1,4,1) 

Ship  Set  4 

Ship-Type/Hu  1 1 -Number 
(Lower  Pound) 

y-16 

AS 

GRPDFF(I ,4,2) 

Ship  Set  4 

Ship-Type/Hul  1-Number 
(Upper  Bound) 

20-27 

AS 

GRFDFF( 1,5,1) 

Ship  Set  5 

(Lower 

Bound ) 

33-40 

AS 

GFPDFF( 1,5,2) 

Ship  Set  5 

(Upper 

Bound ) 

44-51 

AS 

GRPDFF( 1,6,1) 

Ship  Set  6 

(Lower 

Bound ) 

57-64 

AS 

GPPDFF( r ,6,2) 

Ship  Set  6 

(Upper 

Bound ) 

66-7  5 

AS 

Group  Detinition  Deck 

Terminator  Card 

Variable  Name 

Descr ipt ion 

Field 

Format 

Terminator 

Terminator  of  Ship  Group 
Definition  Deck  (any 
negative  number) 

1-3 

13 

I dent l t icat ion  Card 

Variable  Name 

Descr ipt ion 

Field 

Format 

DATF 

Date  (mo  dy  yr) 

1-12 

3A4 

COMFNT 

Comment 

1 5-34 

5A4 

16 


M 1 M 


Yard  Option  Cards.  There  are  two  cards  tor  each  required  yard:  a type 
A card  which  describes  the  options  and  years  and  a type  B cara  tor  re- 
questinq  the  qroup  numbers.  A Yard  Option  terminator  card  follows  the 
final  type  B Option  card. 

Type  A Yard  Option  Card 


Variable  Name 

Description 

Field 

Format 

I YDS  FI, 

Yard  name 

1-5 

A5 

ALL 

The  punch  characters  "ALL" 
will  sum  entire  yarn 

8-10 

A3 

REP 

The  punch  characters  "REP" 
will  compute  repairs  only 

13-15 

A3 

ALT 

The  punch  characters  "ALT" 
will  compute  alterations 
only 

18-20 

A3 

TOTAL 

The  punch  characters  "TOT" 
will  compute  total  of 
repairs  and  alterations 

23-25 

A3 

I YEAR( 1 ) 

2-digit  year 

30-31 

12 

IYEAR(  2 ) 

2-diqit  year 

33-34 

12 

I YEAR ( 3 ) 

2-diqit  year 

36-37 

12 

IYEAR14) 

2-diqit  year 

39-40 

12 

I YEAR ( 5) 

2-diqit  year 

42-4  3 

12 

B Yard  Option  Card 


Variable  Name 

Descr ipt ion 

Field 

Format 

I YDS  EL 

Yard  name 

1-5 

A5 

IYDGRPl 1-25) 

Group  numbers  to  be 
processed 

7-80 

15(1X,I2) 

Yard  Option  Terminator  Card 


Vai  table  Name 
[AST 


Oescr lotion 

End  card  ot  input  data 


Field 

1-5 


Fiqure  6.1-1  qives  an  example  ot  an  input  deck  tor  REPSHOP. 


Format 

A5 


6. 1.3. 2 Unit  11  - Shoo  File 


The  Shop  File 

is  a binary  tile,  so  the  format 

presentee 

is 

to  be  useu 

as  a auicie  to  indicate  the  size  ot  the  variables. 

No  Shop  File 

is  created 

lor  private  yaras. 

The  following  format  is  used 

tor  each 

record  on  the 

Shop  File: 

Variable  Name 

Description 

Position 

Format 

ISFULL 

Ship  type  and  hull 
number 

1 

(AS) 

ITYPVvK 

Type  work 

2 

(A3) 

I YD 

Yaru 

3 

(A5) 

IGRCT'P 

Group  number  (set  = 0) 

4 

(13) 

IFYR 

Fiscal  year  (this  record) 

5 

(12) 

OvN 

Yard  ownership  indicator 

b 

(Al) 

COAST 

Coast 

7 

(Al) 

IPFRD 

Period  (this  record) 

0 

(Al ) 

I COW 

Continuation  indicator 

9 

(Al) 

I ST  FT 

Availability  start  date 
(mo/cy./yr ) 

10 

(16) 

IFND 

Availability  end  date 
(mo/dy/yr ) 

11 

(16) 

ISPFC 

Special izat ion  category 

12 

(A3) 

SVALP( 1-20) 

Total  direct  repair  manoavs 
tor  shops 

13-32 

(20F10.2) 

SVALAf 1-20) 

Total  oirect  alteration 
mandays  tor  shops 

33-52 

(20F10.2) 

I DAYS 

Production  shop  productive 
(PSP)  mancays  this  period 

53 

(17) 

IFFRCT 

Percent  ot  PSP  manoays  tor 
alterat ions 

54 

(13) 

18 


d.1.4  ournrrs 


The  following  units  are  used  by  REPSHOP  for  generating  hard-copy 
output : 

Unit  6 - Summary  shop  reports 
Unit  7 - Frror  messages 

Section  6.1.7  shows  a sample  of  these  outputs. 
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('.I.')  PRCX'KAM  1 1ST!  Nl' 


c**  • • 

•PROGRAM  RE  PSHOP( INPUT .OUTPUT , TAPES. INPUT ,TAPEE..OUTPUT,TAPEU, 

• ••• 

10 

c*  ••• 

l TAPEFl 

oo 

c 

REPS 

JO 

c 

PROGRAMMER  JEAN  ST  LAURENT  COCH  18E.J 

REPS 

SO 

c 

NRITTEN  JAN  1 Ilk 

REPS 

E>0 

c 

RE  PShOP  IS  A REPORT  GENERATOR  F OR  TOTAL  DIRECT  LA80R  HANDATS 

RE  PS 

Eil 

c 

t*r  shops 

REPS 

6a’ 

c 

REPS 

b j 

c 

SHOP  DATA  IS  REPORTED  FIRST  BY  TARD 

REPS 

bb 

c 

NITMIN  A YARO  BY  GROUP 

REPS 

bS 

c 

ANO  NIThIN  A GROUP  BY  YEAR 

REPS 

bh 

c 

RFPS 

TO 

c 

there  ARE  N OPTIONS  FOR  OUTPUT  OF  SHOP  DATA 

RE  PS 

SO 

c 

REPAIRS,  ONLY  - INPUT  AS  REP  - USED  AS  IOPT  « 

t 

RE  PS 

80 

c 

ALTS,  ONLY  * INPUT  AS  ALT  - USEO  AS  IOPT  . 

REPS 

100 

c 

TOTAL  OF  ALTS  AND  REPAIRS  - INPUT  AS  TOT  - USED  AS  IOPT  » 

3 

REPS 

110 

c 

REPAIRS,  ALTS  AND  TOTALS  - USED  AS  IOPT  » 

% 

RFPS 

100 

c 

REPS 

1 J0 

c 

DATA  MAY  BE  PRODUCED  FOR  SELECTED  GROUPS  OF  SHIP  CLASSES 

RE  PS 

lb  0 

c 

there  is  also  a provision  to  sum  all  oata  for  a yard 

REPS 

ISO 

c 

iall  * t 

RE  PS 

1E>0 

c 

REPS 

1 F 0 

c 

DATA  IS  REPORTED  BY  YEAR  AND  THE  YEARS  REQUIRED 

RFPS 

ISO 

c 

ARE  INPUI  AS  - IYEAR 

RE  PS 

180 

c 

REPS 

000 

c 

REPS 

010 

c 

TAPE  ASSIGNMENTS 

RFPS 

00  0 

c 

TAPES  - INPUT  - CAROS 

REPS 

OJO 

c 

T APE  b - OUTPUT 

RFPS 

040 

c 

T APE  F - OUTPUT  - ERRORS,  ONLY 

Rf  PS 

oso 

c 

TAPE  II  - INPUT  OF  SHOP  DATA  FILE  CREATED  BY  PROGRAM  YPLOOE 

REPS 

01,0 

c 

RE  PS 

0 F 0 

REAL**  GRPOEF,  lYOSFL,  IYO,  LAST.IYOP,  ISHULL,  08LANS 

oso 

c 

REPS 

0 

INTEGER  GRPOE  F 

Rf  PS 

J00 

COMMON/IOATA/  GRPDEF  ( 1 00  , E>  ,01  , lYDSELUS) 

REPS 

-TOO 

CON NON/ MORS/  ARRAYR(?S,s,^0>,ARRAYA(OS,s,00),SVALR(00>,  SYALAE 

?0> 

REPS 

330 

COMMON/REP/  ISHIPE  t00,E,,O>  , IHUL  L II  0 0 , b , 0 > 

RFPS 

JS0 

CONHON/MISC/I YDGRPEIS.OS) , JGROUPEOSE,  KGROUP(OS),  NGROUPIOSE 

Rf  PS 

3b  0 

COMMON/ I OE  NT /COME  NT  (SI  , OATE  ( J) 

Rf  PS 

JF0 

CONNON/VAL/VALR(00> , VALAE00I,  VALT(OO) 

REPS 

JS0 

DIMENSION  NYEARSEIS),  IYEAREIS.S),  lYDYR(S) 

REPS 

3*0 

0 I Nl NS  I ON  IGKPNO110OE .NGRPS10SI  , IALL(IS),  IOPTE1SI 

RE  PS 

41  0 

c 

RE  PS 

N N 0 

OATA  LAST/SMLAST  / 

RE  PS 

bbO 

OAT  A ORE  P/  JhRE  P/ 

REPS 

sTO 

OATA  OAlT/JhAlT/ 

Rf  PS 

49  0 

DATA  OTOT/JHTOT/ 

RFPS 

4*0 

DATA  OALL / JHALL  / 

REPS 

N00 

DATA  D8LANK/8H  / 

REPS 

SO  J 

c 

RFPS 

s 1 0 

c 

INITIAL  conditions 

RFPS 

SOO 

I Y DP  = OBLANK. 

REPS 

s.TO 

c 

RE  PS 

s%  0 

c 

ofro  out  arrays 

Rf  PS 

ss  0 

JO 


00  19  I • 1,  29 
DO  10  J » 1,19 
00  9 K ■ 1,9 
IYOGRP(J,I)  ■ I 
IYOSEL(J)  ■ DBLONK 
NGRPS(I)  - t 
ITEORU.K)  ■ 0 
9 CONTINUE 
10  CONTINUE 
19  CONTINUE 

REDO  GROUP  DEFINITION  CARD  DECK, 

00  JO  I • 1,  IDO 

RE  00(9, 100)  ICRPNO(I),  (ORPOEF ( I , J , 1) , 6RP0EF ( I,J,2),J*1,3), 

1 IGRPNO (I),((ISHIP(I,K,L) , IHULL ( I,K,L) ,L • 1 , 2 > , K • 1 , 3) 

100  FORNO T ( 1 3 , 3(90,00,31,00),  T1,I3,  T9, 09,  T1J.09,  T20 , 09 , T29, 09, 

1 T 3 3,09,  T 3T , 09 , T99,09,  T90,09,  T97.09,  T61,09,  TOO, 09,  172,09) 

TEST  FOR  TERNINOTOR 

IF< IGRPNO(I) .LT.O)  GO  TO  39 

RE0D(9, 100)  IOUNNT,  ( GRPOEF ( I , J ,1) , GRPOEF ( I,J,2),J*9,6>, 

1 I0UN1,  ( (ISHIP(I,K,L)  ,IHULL(I,K,L)  ,1*1,2)  ,K«9,6> 


THIS  SECTION  REPLACES  BLANKS  HITN  2ER0S  (FOR  COC  ONLT) 

••••00  29  J . 1,9 
••••00  20  K » 1,2 

••••GRPOEFd,  J,K>  ■ IC82  ( GRPOE  F(I,J,K>) 

•20  CONTINUE 
•29  CONTINUE 
30  CONTINUE 

REOO  HEADER  CORO 

39  REOD(9,101)  DOTE,  ( CONENT ( I ) , I- 1 , 9) 

101  FORNOT (309,  21,  909) 

REOO  TORO  CAROS  NITH  OPTIONS  ONO  REQUIRED  YEARS 

00  90  I ■ 1,  19 
III  ■ I 

RE 00(9, 102)  ITOSEL(I),  ALL,  REP, ALT, TOTAL , ( ITEOR( I , J) , J> 1 ,9) 

102  FORNOT (09 , 9(21,03),  91,  9(12,11)1 
IF(irOSELd).EQ.LOST)  GO  TO  99 

SET  FLOG  FOR  VARIOUS  OPTIONS 

IOPT(I)  • 0 
lOLL(I)  ■ 0 

IF(REP.EQ.ZREP)  I OPT ( I ) ■ 1 
IF( OLT.EQ.ZOLT)  TOPT(I)  - 2 
IFITOTOL.cQ.ZTOT)  lOPT(I)  ■ J 

IF ( REP, EQ • 7RE  P .ONO.  OLT.EO.ZOLT  . ONO  .TOTAL .EQ. ZTOT > I0PT(I>*9 
IF ( ALL .EQ.ZOLL)  IOLL(I)  - 1 

REOO  GROUP  SELECTION  CAROS  GIVING  NMICM  OF  THE  GROUP 
NUNBERS  (IGRPNO)  ORE  TO  BE  PROCESSED  FOR  EACH  TORO 
THIS  CORO  IS  THE  2ND  OF  THE  PAIR  NITH  TORO  SELECTION  CORO 


REPS  990 
REPS  970 
REPS  900 
REPS  590 
REPS  600 
REPS  610 
REPS  620 
REPS  630 
REPS  690 
REPS  650 
REPS  660 
REPS  670 
REPS  600 
REPS  690 
RFPS  710 
REPS  720 
REPS  730 
REPS  790 
REPS  750 
REPS  760 
REPS  770 
REPS  780 
REPS  790 
REPS  800 
RFPS  805 
REPS  810 
••••  820 
•*••  830 
••••  890 
•*••  850 
••••  860 
REPS  870 
REPS  880 
REPS  890 
REPS  900 
REPS  910 
REPS  920 
REPS  930 
REPS  990 
REPS  950 
REPS  960 
REPS  970 
REPS  980 
REPS  990 
REPS1000 
REPS  1 0 1 0 
REPS1020 
REPS  1 0 3 0 
RESP1035 
REPS1038 
REPS1090 
REPS1050 
REPS  1060 
REPS  107  0 
REPS10S0 
REPS  1 08  5 
REPS  1 0 90 
REPS  1 10  0 
REPS1 110 
REPS1120 
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RCAOES,103I  IVOSEIEIE,  E I Y OGRP  E l , J ) , J*  1 , ?Sl 
iai  fur  ha  r us,  2seix,i2ii 
<•0  CQNIINU1 
NYOS  ■ III 

go  ro  so 

NS  NYOS  » III  - 1 
S8  IOONf  * NYOS 

c 

C DETERMINE  NUHBf  R OF  GROUPS  PER  YARD  TO  01  PROCESS!  0 

DO  10  I • 1,  NYOS 
DO  SO  J * 1,  2S 
J J « J 

IFI IYDGRPE I,J»  .IQ.  0)  GO  TO  SS 
'.0  CONTINUE 

NGRPS(I)  * JJ 
GO  TO  GO 

SS  NGRPSEIt  ■ JJ  - I 
fcO  CON  I I NUf 

C 

C OII1RMIN1  NUMR1K  OF  YEARS  (NYEARSI  TO  BE  PROCFSSEO  FOR  EACH  YARD 

C 

DO  Pi  I * l.NYDS 
DO  bS  J • 1,3 
JJ  * J 

IF! IVE ARE l ,JI  .FQ.0I  GO  TO  TO 
hS  CONTINUE 

NYE  ARSCII  • JJ 
GO  TO  FS 

F0  NYEARS(I)  * JJ  - 1 
FS  CONTI  NUf 

CALL  HE  AOl  RE  1 , IOUN2 , 1 0UH2I 
CAE i BANNER 
C 

C INITIAliri  FLAGS  FOR  EACH  YARD  AND  /FRO  OUT  ARRAYS 

00  IFIRST  * 0 

00  03  I • 1,2S 
DO  10  J ■ 1,S 
DO  ASK  * 1,20 
A-ERAYR  E I , J,K)  • 0.0 

ARRAYAEt, J,K!  > 0.0 
H(,  ROUPED  « 0 
KGROUPEII  • 0 
JGKOEJPEIJ  * 0 
IYDYREJE  = 0 
AS  CONTINUE 
HO  CONTINUE 
BS  CONTINUE 

C 

C 

C READ  SHOP  Rf  CORO 

C»?00  READEII)  ISMUll,  ITYPMk.Iyii,  IGROUP,  IFYR,  OEEN,  COAST,  IPERD, 

C • • • • 1 ICONT,  ISTRT,  IEND,  ISPEC,  ESVALREK  >,KM,20>  , ESVAl  AEKE  .*<1,201 
C**'»2  IOAYS,  IPERCT 

200  READ!  ll,fNO«2SAf  I SHULL  , IT  YPNK  , I YD , IGROUP  , I FY  R , OMN  , COAST  , I PE  RD  , 

1  ICONT,  ISTRT,  UNO,  ISPEC,  E S VAl  R E K ) , K»  1 , 20  > , 1 S V AL  A I K 1 ,K<1,20) 


2  IOAYS,  IPERCT 
’•IflEOFEll)  .ME.  01  GO  TO  2SS 
IFE IFIRST. FQ.OE  GO  TO  210 
DO  .’OS  I • 1,2S 
ETGROUPIIE  0 


Rf PS1130 
RF  PS  1 1SJ 
RE  PS1 ISO 
RF  PS  1 lbO 

Rf psi  iro 

Rf  PSt  MO 
REPS  1 ISO 
RFPS1 1SS 
Rf PS1200 
RF  PSI 210 
RF  PS  1 22  0 
RrPS12J0 
Rf PS12S0 
Rf PS12S0 
RFPS12G0 
Rf  PS12rO 
Rf PS1280 
REPS  1 2S  0 
RFPS1 300 
RF  PS  1 310 
Rf PSI 320 
RTPSl 330 
Rf  PS  1 33  0 
RrPSl 3S0 
Rf  PS  1 JbO 
Rrpsisro 

Rf PS 1 380 
Rf PS13S0 
Rf PS1400 
RfPSlSl 0 
Rf PS1S20 
RFPS1S30 
Rf  PSI  44  0 
RFPS14S0 
RE  PS  1 Sb  0 
RFPSli.ro 
RfPSlSAO 
RTPSl 4B0 
Rf PS1S00 
RTPSISIO 
Rf  PS  1 S2  0 
Rf PSI S30 
REPS1S3S 
Rf PSISSO 
RFrS i SSO 
RTPStSbO 
Rf psisro 

RE  PSISSO 
Rf  PSI  SSO 
RfPSlE,  00 

••••1S1 0 
, ••••1620 
••••lb30 
••••lbSO 
, ••••16S0 
••••IhbQ 

••••tsro 

RE  PS1G80 
RfPSl bSO 
Rf  psi roo 


c 

c 

c 

c»2i* 

21* 

c 

c 

c 


CONTINUE 

in  ITOP.NI  . 1 Y 0 > GO  TO  2*0 
GO  TO  250 
IFIRST  » 1 
IYOP  « I V 0 

SEE  IE  THIS  TARO  NEEDS  TO  BE  PROCESSED 

CALL  SEARCHIIVO.NVOS.II  I,  RCTURNS(AO) 

CALL  SEARCHCIYO.NYDS.II,  ISO) 


22* 

C 

C 

c 

2 JO 
C»2J0 

C 


C 

C 

C 

C*  2*0 
2*0 
C 
C 


SET  OPTION  FOR  THIS  YARO 
JOPT  » I OPT  (II» 

IF  ALL  RECOROS  ARE  TO  BE  PROCESSED,  SET  KOPT 
KOPT  ■ I ALL ( 1 1 1 

OETERNINE  ARRAY  OF  YEARS  PER  YARO  (IYOVR) 

NYEAR  ■ NYE ARS (II) 

DO  220  K ■ 1,  NYEAR 
IYOYR1K)  • IVEARCII,  K! 

CONT INUE 

OETERNINE  NUNBFR  OF  GROUPS  FOR  THIS  YARO  INGROUP! 

NO  ROUP  < NGRPSIII) 

IF(NGROUP.EQ.O)  GO  TO  230 
DO  22*  K • 1,  NGROUP 
KGROUPCK)  » I YOGRP III,  K I 
CONTINUE 

CHECK  TO  SEE  IF  THIS  YEARS  DATA  IS  REQUIREO 

CALL  YEAR  I IFYR , IYOVR, (200) 

CALL  VEARtlFYR,  IYOVR),  RE  TURNS  12  0 0) 

IF  THFRE  IS  NO  NATCH  ON  YEAR,  RE  AO  NEXT  SHOP  RECORO 
IFI NGROUP. GT. 0)  GO  TO  2*0 

IF  NO  GROUPS  ARE  TO  BE  PROCESSEO,  CHECK  ON  ENTIRE  YARO 

IF(KOPT.EQ.l)  GO  TO  23* 

CALL  SKPVO(IYO) 

GO  TO  00 

IF  NO  GROUPS  HAVE  BEEN  SELECTED  FOR  THIS  YARO  RUT  ENTIRE 
IS  TO  BE  PROCESSEO  - CALL  SUN 

KK  * 1 

CALL  SUHENGROUP, IFYR, KK , IYOVR , KOPT ) 

GO  TO  200 

CHECK  ON  GROUP  NUMBERS  TO  BE  PROCESSED 

CALL  fONPARdSHULL,  IGRPNO,  NGROUP)  , RETURNS(2*2) 

CALL  COMPARdSHULL,  IGRPNO,  NGROUP,  (2*21 

IN  ADOITION  TO  GROUPS,  ENTIRE  YARO  IS  TO  BE  PROCESSEO 
IF(KOPT.EQ.l)  GO  TO  2** 

KK  * 0 


REPS1210 
REPS 1 T?  0 
REPS  1 2 J 0 
REPS1T*0 
RE  PS  12*0 
REPS  12*0 
RE  PS  12  2 0 
REPS  1 2 A0 
••••1290 
••••1A00 
RE  PS  1 a 1 0 
RE  PS  1820 
RfPSiajO 
REPS1**0 
RFPS18S0 
RFPS1860 
RE  PS 1 8 2 0 
REPS1 880 
REPS  1890 
REPS  190  0 
RE  PS  1 91  0 
REPS  1 92  0 
REPS  1 9 J 0 
RE  PS 19*0 
REPS  19*0 
REPS 19b0 
REPS1 920 
RFPS1980 
RE  PS  1990 
REPS2000 
REPS?  0 l 0 
REPS2020 
RE  PS  2 0. TO 
RE  PS?  04  0 
•••*20*0 
•••»?0*0 
RE  PS?  0 2 0 
RE  PS?  0 8 0 
RE  PS?  090 
REPS? 100 
RE  PS?  1 1 0 
REPS?  1?0 
RFPS21 JO 
REPS? 1*0 
RE r5?i*S 
V AROREPS? 1*0 
REPS? 1 2 0 
REPS? 180 
REPS  ? 1 90 
RE  PS??  0 0 
RFPS7710 
REPS???0 
REPS???* 
RFPS??*0 
••••??h0 
••••??20 
»EPS??80 
R1 PS??90 
RE  PS 'TOO 
RE  PS?  .1 1 0 
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CALL  SUN<  NGROUP, IFYR.KK, IYOYR.KOPT » 

GO  TO  200 

C If  THERE  IS  NO  HATCH  ON  GROUP  NUNBf  R , CHF  CK  If  fNTIRf 

C YARD  IS  TO  Bf  PROCESSfO 

21.2  IflKOPT.CQ.il  GO  TO  2JS 
GO  TO  200 
2 SS  KK  - 2 

CALL  SUM( NGROUP.If TR.KK, ITOTR.KOPTI 

GO  TO  200 
C 

C AT  C NO  OF  TARO,  PROCESS  OATA  FOR  THAT  TARO 

2S0  CONTINUE 
C 

C REPORT  IS  THE  REPORT  SUHHARI 2ER  FOR  REPAIRS,  ONLY 

C ALTS,  ONLY 

C TOTAL  Of  REPAIRS  AND  ALTS 

C 

CAll  REPORTEIYOP, NGROUP ,HYFAR,JOPT,IYOYR,  KOPTI 

C 

I DONE  » IOONE  - 1 
If (IOONE.EO.OI  STOP 
BACKSPACE  11 
GO  TO  SO 
C 

C END  OF  FILE  HARK  NAS  RE  AO  - PROCESS  OATA 

2 SS  CALL  RE PORTEIYOP, NGROUP, HYE AR , JOPT , I Y DYR , KOPTI 
CALL  IE  RROR1 1 , 1 OUH, IYOPI 
STOP 
ENO 


Rf  PS2 32  0 
Rf PS7330 
RF  PS  2 331 
RFPS2TJ2 
RF  PS  23*,  0 
Rf PS23S0 
RrPS23EiO 
RF  PS  23  TO 
Rf PS23S0 
Rf  PS738S 
Rf PS7390 
RFPS7S0  0 
Rf  PS  2<*1  0 
RFPS71.20 
REPS2R30 
RFPS7NS0 
Rf PS7SS0 
Rf  PS2NE.0 
RE PS7H  T 0 
RF  PS  7 *,8  0 
RFPS7S40 
RE  PS7S42 
RFPS2N4S 
RFPS2S00 
RFPS2S01 
Rf  PS2S07 
RFPS7S0S 
RFPS2S1 0 
RFPS7S20 


SUBROUTINE  BANNER 

BANN 

10 

BANN 

20 

SUBROUTINf  TO  PRINT  BANNER  PAGf 

BANN 

30 

BANN 

1.0 

WRITE (6,1001 

BANN 

SO 

FORHAU///,  7 TX  » T9E1HXI  //, 

BANN 

bO 

1 2 8X , TTH  XXXX  X X XXX 

XXXX 

XXXX 

XXXXX 

XXXX 

XX  X 

BANN 

TO 

2 XXXX  XXXXX  XXXX  / 

BANN 

80 

3 ?8X,  TTHX  XXX 

X 

X X 

X X 

X 

X X 

X 

XBANN 

40 

G X X X X / 

BANN 

too 

S ? AX , TTHX  X XX 

X 

X X 

X , X 

X 

X X 

X 

X B ANN 

110 

b X X X X / 

BANN 

170 

T 28X,  TTH  XXX  XXXXX  X 

X 

XXXX 

XXXX 

XXXX 

XXXX 

X 

X B ANN 

1 TO 

A XXXX  X XXX  / 

BANN 

iso 

<1  2 AX , TTH  XX  XX 

X 

X 

X X 

X 

X 

X 

XBANN 

ISO 

A X X X X / 

BANN 

lbO 

8 2 AX  , TTH  XXXXX 

X 

X X 

X 

X 

X X 

BANN 

1 TO 

C X X X X / 

BANN 

180 

O 2 AX , TTHXXXX  X X XXX 

X 

X X 

XXXXX 

X 

XXX 

BANN 

140 

F X X X XXXX  // 

BANN 

200 

F 2 TX , T411HXI  f 1 

BANN 

210 

Rf TURN 

BANN 

720 

ENO 

BANN 

23  0 

uooo  u o o o uuoou  u o o O ouuo 


C**  *•• SUB ROUT I HE  CONP AR ( I SHULL , I GRPNO , NGROUP!  , RETURNS (NONE) 
SUBROUTINE  COHPARI I SHULL, IGRPNO,  NGROUP,*) 

SUBROUTINE  TO  OETERNINE  IF  THIS  SHIP  TYPE  AND  HULL  NUNBER 
FILL  NITHIN  THE  RANGE  OF  A REQUESTEO  SHIP  GROUPING 

INTEGER  GRPOEF 

REAL’S  GRPOEF,  ITOSEL,  ITO,  ISHULL 

CON  NON  / 1 DA  T A/  GRPOEF  1 1 00  ,6 , 2)  , IYOSELU5I 

CONNON/NISC/I YOGRPE 15,25) , JGROUP 125),  KGROUPI25),  NGROUPC25) 

01 Nf  NS  I ON  IGRPNO  <1001 

IFLAG  ■ 0 

CHICK  GROUP  NUNBERS  TO  BE  PROCESSED  FOR  THIS  T ARO ( KCROUP) 
AGAINST  GROUP  NUNBER  OF  GROUP  DEFINITION  OATA  BASE  ( IGRPNO) 
00  AO  K ■ 1,  NGROUP 
or  10  I ■ 1, IBB 

IF  I IGRPNO  ( 1 1 .NC.  KGROUP  (KM  GO  TO  50 

CHECK  SHIP  ANO  HULL  RANGE 
DO  20  J ■ 1,6 

••••  IF l ISHULL .GE . G RPOE F 1 1 , J , 1 1 .AND.  I SHULL .LE . GRPOEF ( I , J, 2) ) 

••••l  GO  TO  10 

REVERSE  THE  TEST  ON  THE  560 

IFt ISHULL .LE . GRPOFFII, J,ll  .AND.  I SHULL . GE . GRPOEF ( I , J , 2 » I 
l GO  TO  10 

GO  TO  20 

NGROUP  IS  AN  ARRAY  OF  HATCHED  GROUPS  FOR  THIS  RECORD 
JGROUP  IS  AN  ARRAY  OF  HATCHED  GROUPS  FOR  THIS  TARO 

10  NGROUP IK)  » IGRPNO(I) 

JGROUP  OKI  * NGROUP! K) 

IFLAG  « t 
20  CONTINUE 
50  CONTINUE 
AO  CONTINUE 

IFIIFLAG.EQ.lt  RETURN 

IF  NONE  OF  THE  GROUP  NUNBERS  NATCH,  ALTERNATE  RETURN  THAT 
CHECKS  ON  PROCESSING  ENTIRE  YARO 
•••RETURN  NONE 
RETURN  1 
ENO 


• ••• 

to 

• ••  • 

20 

CONP 

21 

CONP 

22 

CONP 

25 

CONP 

26 

CONP 

50 

• *•  • 

60 

CONP 

SO 

CONP 

F0 

CONP 

60 

CONP 

too 

CONP 

110 

CONP 

120 

CONP 

150 

CONP 

160 

CONP 

1T0 

CONP 

ISO 

CONP 

200 

CONP 

210 

CONP 

220 

CONP 

250 

CONP 

260 

• ••• 

250 

CONP 

252 

256 

• ••• 

256 

CONP 

26  0 

CONP 

2T0 

CONP 

2S0 

CONP 

2S0 

CONP 

30  0 

CONP 

510 

CONP 

520 

CONP 

550 

CONP 

560 

CONP 

550 

CONP 

560 

CONP 

5 T 0 

CONP 

500 

CONP 

5S0 

CONP 

600 

• ••• 

610 

• ••• 

620 

.... 

Luni 

«.  > A 
n j y 

25 


nn  n non 


S'JBR  OUT  INF  HF  AOf  R (NOPG  , 1 0,  JOPT) 

MF  AO 

10 

ME  AO 

20 

SU8R0UTINF  TO  RRIIf  REPORT  IDENTIFICATION 

AND 

NUMBER  PAGES 

Hf  An 

JO 

HF  AO 

NO 

CONNON/IOf NT/COMFNT IS) , OATf(J) 

MF  AO 

SO 

IF  INOPG.GT  .1)  GO  TO  10 

HEAO 

bO 

IPAGE  » 0 

MF  AO 

TO 

NRITElb.100)  OATF.CONFNT 

MF  AD 

SO 

too 

FORMAT  1 1H 1 , 2 X , NMOATf,  2X,  JAN,  /,  JX,  SAN) 

mfao 

90 

RETURN 

MEAD 

100 

10 

IFC IO.NE.IOP)  IPAGE  * 0 

MEAD 

110 

IPAGE  * IPAGE  » 1 

MF  AD 

120 

IOP  » 10 

MF  AO 

1 JO 

WRITE (b, 101)  IO, JOPT, DATE, IP  AGE, CONE  NT 

ME  AO 

IN  0 

101 

FORMA  T ( IN  1 , 2X,  12HREPORTI  61-0,11,  1H-,  11, 

ex, 

SHDATEI,  IX, 

HEAD 

ISO 

1 JAN,  SOX,  NHPAGE,  IN,/  JX,  SAN) 

HF  AO 

160 

RETURN 

MFAO 

1T0 

END 

MEAD 

ISO 

SJH-OuTINf  If RROR IN, IDUMMY , IDBU 

SUBROUT  I NF  tO  PRINT  fRROR  MtSSAGFS 
RfAi'S  I0t*l 
GO  (0  ( 10 ,20,  TO)  , N 

10  w<i  ii  ( r , t o o)  i OHi 

toil  FORMAT!  1*,  1 /M  • • f NO  Of  fILf  fNCOUNTfPfO  IN  TARD  , **<1 

Stop 

20  »!I'f  1 r,  1 0 1)  IDBL 

1C1  f JRNAl  ( IX,  SJH  • • • t RROR  IN  GROUP  NUMHfRS  - NO  NATCH  fOR  YARO 
1 A>) 

Rt  TURN 

JO  H III  11,1001  IOUMNY,  I UBL 

IJ2  FORMAT!  (X,  2SH  • » • NO  SHIPS  IN  GROUP  , IJ,  IX,  NMFOP  , AS) 

R*  t URN 
F NO 


If  Rp 

1 0 

If  RR 

2 0 

If  RR 

10 

If  RR 

JS 

• * • « 

NO 

If  RR 

NS 

If  RR 

SO 

T F RR 

N J 

If  RP 

TO 

If  RP 

SO 

If  RR 

90 

I F RR 

100 

irRp 

110 

If  RR 

12  0 

If  RR 

1 JO 

IF  RP 

1 NO 

I F RR 

iso 

If  RR 

IsO 

* 


SUBROUTINE  NOSHIP(JJ) 

NOSH 

10 

c 

NOSH 

20 

c 

SUBROUTINE  TO  DETERMINE  THE  NUMBER  OF  SHIPS  PER  GROUP 

NOSH 

30 

c 

ANO  PRINT  SHIP  ANO  HULL  VALUES 

NOSH 

60 

c 

NOSH 

50 

COHHON/REP/  ISHIP( 100,6, 21 , IHULL « 100 , 6, 21 

NOSH 

1 0 

c 

NOSH 

SO 

REAL’S  ISHULL 

• ••  • 

90 

c 

NOSH 

100 

OATA  IBLANK/6H 

NOSH 

110 

L * 1 

NOSH 

120 

00  10  KK  * 1,6 

NOSH 

130 

KKK  * KK 

NOSH 

160 

IF( ISMIP( JJ.KK.LI  • EQ  .1  BLANK)  GO  TO  12 

NOSH 

150 

10 

CONTINUE 

NOSH 

160 

GO  TO  IS 

NOSH 

165 

12 

KKK  « KKK  - 1 

NOSH 

16  S 

15 

IF(KKK.GT.3)  GO  TO  20 

NOSH 

1 TO 

MM  ■ KKK 

NOSH 

ISO 

MRI  TE  ( 6, 1 02)  1 ( ISHIPI JJ,KK,U  , IHULL ( JJ, KK ,L > ,L « 1 , 2 > , KK« 1 , MM) 

NOSH 

190 

RETURN 

NOSH 

200 

20 

NN  * 3 

NOSH 

210 

NRI TE (6, 1021  ( (ISHIP(JJ,KK,L) , I HULL  < J J,  KK , L > , L » 1 , 2 ) , KK»  1 , MM) 

NOSH 

220 

MM  * KKK 

NOSH 

230 

WRITE  (6,10  2)  ( (ISHIP(JJ,KK,L)  , IHULL  ( JJ,  KK , L ) , L * 1 , 2 » , KK*6 , MM) 

NOSH 

26  0 

102 

FORMAT ( 1 H , JOX,  3 ( A6 , IX , A6 , 1 X , 1H- , IX , A6 , IX , A 6, 6X) ) 

NOSH 

250 

RETURN 

NOSH 

260 

ENO 

NOSH 

220 

o o o non  nn  nnnnnn  nonn  onnn  o o n n o 


TT':r  | h wm  ■ ■ t- 
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SUBROUTINE  RE  PORT ( ITO , NGROUP,  NYEAR,  JOPT , ITOTR,  KOPT) 

SUBROUTINE  TO  PROCESS  OATA  FOR  REPAIRS,  ALTS, 

ANO  TOTAL  OF  REPAIRS  AND  ALTS 

REAL*  8 ITO 

COHMON/MORK/  ARR AYR ( 2 5, 5 , 20 > , ARR AY A< 2 S, 5 , 20 ) ,SVALR(20I  , SVALA (20) 
CONNON/REP/  I SHI P( 100,6, 2> , IHULL I 10 0 , 6, 2) 

COHNON/HI SC/I YOGRP (15,25),  JGROUP ( 251 , KGR0UP(25>,  MGR0UP(25) 
CONNON/VAL/VALRI 20) , VALA(20),  V AL  T (2  0) 

OIHENSION  I YDVR ( SI 


ASSIGN  YARO  NUNBER  FOR  REPORT  IDENTIFICATION 
CALL  YONOdYO,  IOI 

IF  ENTIRE  YARO  HAS  BEEN  PROCESSED  (KOPT  * 1)  IT  IS 
STORED  AS  THE  1ST  GROUP  IN  THE  ARRAY 

IFCK0PT.NE.1)  GO  TO  5 
NGROUP  * N6R0UP  ♦ 1 


NGROUP  IS  THE  NUNBER  OF  GROUPS  FOR  THIS  YARO 
JGROUP  IS  THE  ARRAY  OF  GROUP  NUMBERS  THAT  HATCH 
FOR  THIS  YARO 

S DO  80  J * 1, NGROUP 

TEST  IF  ENTIRE  YARO  (BUT  NO  GROUPS)  IS  TO  BE  PROCESSED 
IE ( NGROUP. EQ. 1)  GO  TO  10 
IFIKOPT.EQ.l  .AND.  J.EQ.l)  GO  TO  10 
LL  = J - KOPT 
JJ  * JGROUP(LL) 

CHECK  IF  THERE  ARE  MATCHING  SHIPS  IN  EACH  REQUIRED  GROUP 

IF(JJ.NE.O)  GO  TO  10 
KK  * KGROUP(LL) 

CALL  IERROR(3,KK,IYOI 
GO  TO  80 

10  CALL  TITLE! JOP T , IO) 

MR I TE  ( b, 100)  ITU 

100  FORMA T ( 1H  , 60X,  SHY ARO • , IX,  AS, /I 
IE(KOPT.EQ.l  .ANO.  J.EQ.l)  GO  TO  IS 
NRITE(6,101>  JGROUP(LL) 

101  FORMAT ( 1H  , SSX,  25HSUNMAT ION  FOR  GROUP  NO.  , 12, 

1 lbH  - CONSISTING  OF  ) 

I F ( JOPT. EQ. SI  GO  TO  12 
MRI TE ( b, 1 OS) 

DETERMINE  THE  NUMBER  OF  SHIPS  PER  GROUP  FOR  PRINTOUT 

12  CALL  NOSHIP(JJ) 

WRITE  (6,1  OS) 

10S  F OR  HAT ( 1H  I 
GO  TO  20 


10 

20 

30 

SO 

SO 

bO 

bS 

70 

90 

100 


REPT 
REPT 
REPT 
REPT 
REPT 

REPT 
REPT 
REPT 
REPT 
REPT  110 
REPT  120 
REPT  130 
REPT  ISO 
REPT  150 
REPT  lbO 
REPT  170 
REPT  180 
REPT  190 
REPT  200 
REPT  210 
REPT  220 
REPT  230 
REPT  2S 0 
REPT  250 
REPT  2b0 
REPT  270 
REPT  280 
REPT  290 
REPT  300 
REPT  310 
REPT  320 
REPT  330 
REPT  33S 
REPT  33b 
REPT  350 
REPT  350 
REPT  3b0 
REPT  370 
REPT  380 
REPT  390 
REPT  S00 
REPT  S10 
REPT  520 
REPT  530 
REPT  SS0 
REPT  S50 
REPT  SbO 
REPT  S70 
REPT  580 
REPT  582 
REPT  585 
REPT  590 
REPT  S00 
REPT  510 
REPT  S20 
REPT  SS0 
REPT  SS0 
REPT  SS0 
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^ — ■ 


HI 

I 


1 ; 

i 1 


15 

WRITE  lb, 1061 

REPT 

SbO 

10b 

F ORNAT 1 1H  , SIX,  2 8mS  UMM AT  ION 

FOR  AN 

ENTIRE  YARO,  7) 

PEPT 

S 7 0 

c 

REPT 

sso 

c 

REPT 

c 

HVE AR  IS  THE  NUMBER  OF  YEARS  FOR  IMIS  YARO 

REPT 

bOO 

c 

Rf  PT 

bl  0 

?0 

00  75  I » 1,  NYEAR 

REPT 

620 

c 

REPT 

h 1 0 

c 

JOPT  * 1 COMPUTE  REPAIRS, 

ONLY 

REPT 

64  0 

c 

JOPT  » 2 COMPUTE  ALTS, 

ONLY 

REPT 

hSO 

c 

JOPT  * I COMPUTE  TOTAL 

OF 

REPAIRS  ANO  Al  TS 

REPT 

bbO 

c 

JOPT  * 4 COMPUTE  REPAIRS, 

ALTS, 

ANO  TOTAL 

REPT 

bfO 

c 

REPT 

KAO 

CO  TO  12S, 35,45, 2S) , JOPT 

REPT 

b^fl 

2S 

00  JO  L ■ 1,  20 

REPT 

700 

VAL4IL)  * ARR  AYR  1 J , I , L ) 

REPT 

710 

10 

CONTINUE 

REPT 

720 

IF| J0PT.E0.41  GO  TO  JS 

REPT 

7 JO 

GO  TO  SS 

REPT 

740 

JS 

00  40  L « 1,  20 

REPT 

7 S 0 

REPT 

7b0 

>.0 

CONTINUE 

REPT 

770 

I F C JOPT .E0.41  GO  TO  4S 

REPT 

7 AO 

GO  TO  SS 

RF  P T 

7R0 

4S 

00  SO  L * 1,  20 

RE  PT 

*00 

VAlTUI  * ARRAYRI  J,  I , L 1 > 

ARRAYAI J,1 

.u 

RT  PT 

MO 

so 

CONTINUE 

REPT 

*20 

ss 

I F ( I.EQ.4I  GO  TO  60 

REPT 

MO 

GO  TO  TO 

REPT 

AWO 

60 

CALL  I ITLE (JOPT , IOI 

REPT 

ASO 

WRITE (b, 1001  I V 0 

REPT 

SbO 

IFI40PT.EQ.1  .ANO.  J. EQ. II 

GO 

TO  bS 

REPT 

S 7 0 

WRITE  (b, 101)  JGROUP ILL) 

REPT 

SSO 

IF ( JOPT .E0.4I  GO  TO  62 

REPT 

SS  2 

NRI TE (b, 10S) 

REPT 

AAb 

b? 

CALL  NOSMIPIJJI 

Rf  PT 

A ^ 0 

WRITE (b, 10S) 

REPT 

R 0 0 

GO  TO  70 

Of  PI 

RIO 

hS 

WRITE  lb,  10b) 

REPT 

R20 

7 0 

WRITEIb,107)  IYOYRII) 

REPT 

4.10 

tor 

FORMATI1M  , BOX,  rmfiscal 

1R, 

12.7. 

T b? , 11M- 

7) 

RE  PT 

RbO 

IFIJOPT.EQ.il  CALL  REPl 

REPT 

qso 

IF( JOPT. EQ. 21  CALL  REP2 

REPT 

RbO 

IF! JOPT.EQ.J)  CALL  REPJ 

REPT 

o 

IFI JOPT. EQ. 41  CALL  REP4 

f i 

HfTu 

7s 

CONT  l NUE 

REPT 

9*0 

AO 

CONTI NUE 

REPT 1000 

RETURN 

REPT1010 

ENO 

REPT 1020 

29 


A 


non 


SU3R0UTINE  Rf  PI 

Rf  PI 

10 

Rf  P 1 

20 

SUBROUTINE  TO  PRINT  RfPAIR  VALUfS 

Rf  P 1 

30 

RfP  1 

40 

CONHON/VAl  /VAL»  ( .’01  , ytUI^OI,  VAIK20I 

Rf  P 1 

SO 

01  NT  NS I ON  ISMP114I 

REP  1 

bO 

DAT  * ISMP/b,  11,  IT,  2 3,  2b,  Jl,  3b,  3A,  41,  SI, 

Sb,  b 4 , bY  , 

RfP! 

TO 

t Y 1 , Y2,  Al,  44,  44,  3H0TH  / 

RfP  1 

AO 

RfP  1 

Al 

T0T»  * 0. 

RfP  1 

A? 

00  10  I * 1,20 

RfP  1 

A3 

TOTH  TOTR  * VAIRIII 

Rf  P 1 

S4 

10  CONTI NUf 

Rf  PI 

AS 

N T l 1 1 (b,100)  (ISHP1K1 ,K*1,101  , IWALR(M)  , N - 1 , 1 0 ) , 

REP  1 

40 

1 (ISMPIXI,  *=11,141,  (VALR1N1 ,N> 11, 121  , CVALR(N) *N=14,201  , TOTR 

REP  1 

100 

100  FlRMATTlM  , IS* , 1 0 « IX, bHSMOPI  ,I2,IX1/T20,10(1X,2 

C4H >,  1X1  /, 

RfP  1 

110 

1 2X,  1 4MRf  PAIR  NANDAYS,  3X,  10IF4. 0,1X1,  ///TOO 

, A ( 1 X , bHSMOPI  , 

Rf  PI 

120 

2 12,1X1,  ( 3X  , A41  ,SX  .ShTOTAL  , /,  T20,10(1X,2(4M- 

1,  1X1/,  2X, 

RfP  1 

130 

3 ISMRfPAIR  NANDAYS,  3X,  10TF4. 0,1X1  ///  1 

RfP  1 

140 

Rf  T URN 

RfP  1 

ISO 

END 

RfP  1 

lbO 

S'JOROUT  I Nf  Rf  P2 

Pf  P ? 

1 0 

RFP  ? 

2 0 

SUPROUTINf  TO  PRINT  ALT  VALUES 

Rt  P Z 

3 0 

RFP? 

4 0 

CJNNON/VAL/VALR1201 , VALAIOOI,  vaitioci 

Rf  P ? 

SO 

D INf  NS  I ON  ISHPC141 

RFP? 

NO 

OATA  ISMP/b,  It,  IT,  2 3,  2b,  31,  3b,  3A,  41,  Si, 

’’bi  b1*  i b f | 

RfP? 

T 0 

1 T 1,  T 2 , Al,  44,  44,  3MO  T M / 

Rf  P ? 

30 

RfP? 

Al 

TOT  A = 0 . 

Rf  P ? 

A 2 

DO  10  I * 1,20 

Rf  P ? 

3 3 

TJTA  = TOTA  * VALA1I1 

RfP? 

34 

10  CON  T I NUf 

RfP? 

3 S 

W-fl  T f <h,  1 cot  ( ISHPfXl  ,*  = 1,  101  , (VALAfNl  ,H=l,10l  . 

RfP? 

40 

1 CISMPfKl,  Kill, 141,  (VALAINI ,N  = 11,121 , (VALAIN1 

•Nsl4v?0)|  TOT* 

RFP? 

100 

100  FORMAT  1 1H  ,22X , 10( IX , bHSMOPI  , I 2, 1 X 1 / T 24 , l 0 < 1 X , 2 1 4H 1,  HI  /, 

Rf  P? 

1 1 0 

1 2 X , 1 AH  AL  TfRAT  ION  NANDAYS,  IX,  l 0 ( F 4.  0 , 1 X 1 , / / / 

T24, 

»FP? 

120 

2 A(1X, bHSMOPI  ,I2,1X|,  1 3 X , A 4 1 , S I , S H T OYAl / , 

Rf  P? 

130 

3 T 24,  10  ( IX, 2 (4M 1,  1X1/,  2X  , 

RfP? 

ITS 

3 1 AHALTf RAT  I ON  NANDAYS,  3X,  10IF4. 0,1X1  ///  1 

RfP? 

140 

RFTURN 

Rf  P ? 

ISO 

f NO 

RfP? 

lbO 

io 

. 


u <_>  u 


I 


SUBROUT  INK  RTFS 

SUBROUT  INC  TO  PRINT  TOTAL  OP  RfPAIR  BNO  ALT  VALUES 

CONNON/VAL/VALRI70) , VALAI70),  VALTI70) 

0 INC  NS  ION  ISNPI1S) 

OAT  A ISHP/Bt  Hi  IT*  7S.  7B,  SI,  SB,  SB,  Bl,  St,  SB,  BB,  B7, 
t ri,  77,  at,  as,  ss,  shot n / 

TOT  • 0. 

00  ts  I ■ 1,70 

TOT  ■ TOT  , VALTII) 

10  CONT I NUC 

NRI TI IB, 1001  IISMPIK) ,K-1,1B> , I V AL  T (Nl , N* 1 , 1 0 ) , 

1 < ISMPIK) , K-tl.lBl , IVALTIN>,N»tt,17),  (VAL TIN) ,N«1B,7S> ,TOT 

100  PORNATI1H  ,771, 1BI1*. BHSNOPt  ,17,1*)/ 

1 SX,  17NTOTAL  Rf PAIR , BX,  10(1*, 7IBH ),  1*1  /, 

7 SI,  1BNAN0  ALT.  NANOAVS,  BX,  IOIM.0,111,  ///,  »?B, 

S Bill, BHSHOPI  ,17,11),  I SX , AB) , SI,  SHTOTAL  /, 

B SI,  17HTOTAL  RfPAIR,  BX,  tlllX,7IBH ),  II)  /, 

S SX,  IBHANO  ALT.  NANOAVS,  BX,  MIPS. Bill),  ///  ) 

RETURN 

1 NO 


o o o u 


suo-outinf  rf  PS 

SUBROUT  I NF  TO  PRINT  REPAIR  V*  LUES,  ALT  VALUES  AND  TOTAL  Of 
ALTS  anp  REPAIRS 


CUHHON/VAL/VALRT70)  . VALAF70),  VALT  4 2 0I  RFPS 

0 1 HF  NS  I ON  ISHPT19)  REPS 

DATA  ISMP/b,  11,  IT,  7 3,  2b,  31,  3b,  3A,  41,  Si,  Sb,  bS,  bT,  REPS 

l T 1 , T7,  Si,  9S,  99,  3MOTN  / REPS 

C REPS 

C*»10  RE  AU ( 1 1 ) 1SHULL , ITYPNK,  ITO 

TOTP  = 0.  REPS 

TOTA  a 0.  REPS 

TOT  * 0.  REPS 

03  10  I * 1,20  REPS 

TUT  R a TOTR  * VALR(I)  REPS 

TOTA  a TOTA  * VALA(I)  REPS 

TOT  = TOT  * VAITTII  PEPS 

10  CONTINUE  RFPS 

NFITFIb.100)  IISMPTK)  ,K«1  , 10) , ( V ALR ( H) , N= l , 1 0 ) REPS 

100  FORHAM1M  . 72X  , 10  ( l X.bHSMOPI  , 12, IX)/,  T2S , 10T1X,  2(SM ),1X)REPS 

1 /,  ?X,  IShRFPAIR  HANDAYS,  TX,  10CF9.0,1X))  reps 

M-tITE  (b,101l  (VAlATH)  ,H=1,13)  REPS 

101  E)RNAT(1M  , IX,  IShAL TERATION  NANOAYS,  3X,  10(F9.0,1X>>  RFPS 

N’lTFlh.lO?)  (VALTTNI ,H=1,10)  RFPS 

IC7  FOR HAT  TIM  IX,  13NTOTAL  HANDAYS,  AX,  1 0 ( ER. 0 , 1 X ) , //  ) RFPS 

MXITE ( b,  l 0 3)  IISMPTK),  Kali, 19),  (VALR(H),  M=ll,17),  RFPS 

1 ( YAIRIN)  ,N=1S,?0>  , TOTR  RFPS 

103  F0RMATT1M  , 2?X  , A ( 1 X , bHSHOP I , I?, IX)  , 3»,AS,  SX.SNTOTAlF,  RFPS 

l T?S,  10  4 1 X , 7 ( s H 1, IX)  /,  2X,  ISHRFPAIR  HANDAYS,  REPS 

7 TX,  10  ( f 9,  0 , 1 XI  ) RFPS 

MEITE  (b,  101)  TVALA(H)  , H=  1 1 , 1 2 ) , 1 V AL  A ( N>  , N=  t S , 7 0 ) , TOTA  RFPS 

MRITFIb.10?)  (VALt(H),  Hall, 12),  ( V AL T ( N ) , N - 1 S , 7 0 ) , TOT  RFPS 

RF  T URN  RFPS 

F NO  RFPS 


ooo  ooo  non 


^••••SUBROUTINE  SE ERCH1 ITO.NYOS, III1 , RE  TURNS  I NOY01 
SUBROUT  INC  SEERCHIIYO.NYOS.III,*) 

INTEGER  GRPOCF 

C 

RE 41 • • GRPOEF  . I YDSEL  . IYO 

C 

CONNON/IOETE/  GRPOEE ( 1 0 0 ,E> , 21 , lYDSEldSl 

SUBROUTINE  TO  DETERMINE  IF  THIS  YERO  NEEDS  TO  Bt  PROCESSED 

S DO  10  III  • 1 t N T OS 

IF1IYO.EQ.  ITDSELIIIII)  RETURN 
10  CONTINUE 

IF  THIS  YERO  ISNT  REQUIRED.  SKIP  TO  NEXT  YERO 
CELL  SKPTOCITO) 

•••RETURN  NOVO 
RETURN  1 
ENO 


••••  10 

••••  ;o 

SEER  10 
SEER  ;« 
••••  30 

SEER  3S 
SEER  »0 
SEER  ro 
SEER  SO 
SEER  40 
SEER  100 
SEER  110 
SEER  1?0 
SEER  130 
SEER  110 
SEER  ISO 
••••  ISO 

••••  iro 

SEER  ISO 


SUBROUTINE  SKPYO(IYO) 

subroutine  to  Skip  en  entire  yard 
REEL’S  ITO,  I Y OP . ISMULL 

c 

I Y OP  « IYD 

10  REEO(ll)  ISNULL,  ITYPMk,  ITO 
C»»»»»IFIEOFItl>  .NE.0E  GO  TO  70 

10  REEOlll,ENO«70>  ISHULL.  ITYPNK,  IYO 
IF ( I YO.EQ. IVOPI  GO  TO  10 
BECKSPECf  It 
RE  TURN 

70  CELL  URRORd.IOUH.nOPl 
ENO 


SKPY  10 
SKPY  .'0 
SKPY  30 
SKPY  **  0 

• •• • so 

SKPY  SS 
SKPY  SO 
Skpy  r o 

• •* • 30 

• •• • 40 

SKPY  100 

skpy  no 

SKPY  170 
SKPY  130 
SKPY  ISO 


SUBROUTINE  SUN(NGROUP,IFYR,Mt, IY0YR.4OPT) 

SUNN 

to 

c 

SUNN 

JO 

c 

SUBROUTINE  TO  SUM  ANO  STORE  SHOP  AIT  ANO  RE  PAIR 

DATA 

ACCORDING 

SUNN 

JO 

c 

TO  GROUP  ANO  Yf  AR 

SUNN 

<0 

c 

SUNN 

SO 

connon/nor*/  arrayr  < js  , s , ,’o>  ,ARRAYAtes,s,jo>, 

SVALRI JO  1 , 

SVAL  A (JO) 

SUNN 

GO 

CONNON/NISC/IYOGRPllS ,JS) , JGROUP(JS),  HGROUPCJS), 

NGROUP  U’S) 

SUNN 

r 0 

OINENSION  lYDYRIS) 

SUNN 

to 

c 

SUNN 

■10 

c 

IF  T HI  SUBROUTINE  IS  CALLEO  MITh 

SUNN 

too 

c 

Mt  * 0 OONT  SUN  ENTIRE  YARD 

SUNN 

no 

c 

AA  ■ 1 NO  GROUPS  , BUT  SUN  F NT  IRE  YARO 

SUNN 

I J0 

c 

A A * J SUN  ENTIRE  YARD  IN  AOOITION  TO 

GROUPS 

SUNN 

1 J0 

c 

SUNN 

1*0 

c 

SUNN 

ISO 

c 

CHE  f A YEAR  NITM  ARRAY  OF  YEARS  REQUIRED  FOR  THIS 

YARO  ANO 

SUNN 

1 G 0 

c 

SAVE  SUBSCRIPT 

SUNN 

1 TO 

DJ  10  I * t , A 

SUNN 

too 

IFt IFYR.f Q.IYOYREIM  GO  TO  IS 

SUNN 

1 40 

to 

CO  NT  INUt 

SUNN 

J00 

is 

KKK  a KK  * l 

SUNN 

JOS 

GO  TO  (JO  , JS,  JO)  , AAA 

SUNN 

JlO 

jo 

JJJ  * 1 

SUNN 

JJ0 

ILL  * MGR  OUP 

SUNN 

JJJ 

GO  TO  JS 

SUNN 

J 4 0 

js 

JJJ  * 1 

SUNN 

jso 

LLL  * 1 

SUNN 

JgO 

GO  TO  Js 

SUNN 

J T 0 

to 

JJJ  * 1 

SUNN 

JSO 

LLL  * N^  R OUP  » t 

SUNN 

c 

SUNN 

.ns 

c 

CHfCK  ARR4  r OF  HATCHFO  GROUP  NUK&t  ftS  WITH 

ARRAY 

OF 

SUNN 

J0  0 

c 

GROUP  NUHRFRS  REQUIRED 

SUNN 

JlO 

JS 

OJ  SS  J = JJJ,  ILL 

SUNN 

JJ0 

IFt AA.EQ. 1)  GO  TO  40 

SUNN 

JJ0 

IFIAA.GE.l  .AND.  J.EQ.l)  GO  TO  40 

SUNN 

J 54 

J i a J - NOP  T 

SUNN 

JJh 

IF ( NGROUP l JJ) .EQ . AGROUPtJJ))  GO  TO  40 

SUNN 

34  0 

GO  TO  ss 

SUNK 

JSO 

c 

SUNN 

JGO 

c 

ARRAYS  AND  ARRAYA  ARE  DATA  ARRAYS  FOR  REPAIRS 

ANO 

Al  TS 

SUNN 

3 Y 0 

c 

NHE  RE  J IS  the  GROUP  NUNBtR.  I IS  The 

Yf  AR 

SUNN 

JSO 

c 

and  l are  the  do  itens  of  data 

SUNN 

340 

c 

Sunn 

•*  u U 

40 

DO  so  L * 1,  JO 

SUNN 

410 

ARRAYS  (J  , I ,L>  * ARRAYRtJ.I  ,L  ) ♦ SVALR(L) 

SUNN 

4 JO 

ARRAY  A 1 J,  I ,L  ) * ARR  A Y A 1 J , I , L > ♦ SYALA(L) 

SUNN 

S 30 

•>0 

CONTI  NUE 

SUNN 

s*0 

SS 

CJMT I NUf 

SUNN 

4 R 3 

RE  T URN 

SUNN 

S00 

E NO 

SUNN 

St  0 

h i 


!4 


r 


SUSKOUT 1 NE  TITLE 

(JOPT,  101 

TITL 

10 

TITL 

11 

SUBROUTINE  TO 

WRITE  REPORT  TITLES 

TITL 

12 

TITL 

13 

CONNON/IOENT/COMENTI5) , DATE ( 3) 

TITL 

20 

CALL  HEADERI2 , IO.JOPT) 

TITL 

30 

IF! JO/T.NE.I)  GO 

TO  10 

TITL 

AO 

URITEt6,100> 

TITL 

SO 

100 

FORMAT  (IN  , 1,7%, 

35HTOTAL 

DIRECT 

REPAIR 

MANDATS  BY  SHOP 

, ft 

TITL 

60 

RETURN 

TITL 

7 0 

10 

IF( JOPT.NE.2l  GO 

TO  20 

TITL 

§0 

MRITEI6, 101) 

TITL 

90 

101 

FORMAT ( IN  , 65X, 

S9HT0TAL 

DIRECT 

ALTERATION 

NANOAYS  BY 

SHOP,  /> 

TITL 

100 

RETURN 

TITL 

110 

20 

IF( JOPT.NE.3)  GO 

TO  30 

TITL 

120 

MRITE  (6,  1021 

TITL 

130 

102 

FORMAT ( 1M  , 60X, 

50HTOTAL 

DIRECT 

REPAIR 

AND 

ALTERATION 

MANDATS  BY 

TITL 

1 A 0 

1SHOP,  /• 

TITL 

150 

30 

IF( J0PT.NE.6)  GO 

TO  AO 

TITL 

160 

URITEI6,  1021 

TITL 

1 F 0 

•>0 

RETURN 

TITL 

ISO 

END 

TITL 

190 

SUBROUTINE  YONOIIYO,  10) 

YONO 

10 

c 

YONO 

20 

c 

SUBROUTINE  TO  ASSIGN  A NUMBER  TO  EACH  YARD 

FOR 

YONO 

30 

c 

REPORT  IDENTIFICATION 

YONO 

GO 

c 

YONO 

50 

REAL’S  IYO,  ICHASN,  LBECH,  MARE,  NORVA,  IPEAPL, 

IPHILA,  IPTSNH 

60 

1 l PUGET 

65 

c 

YDNO 

20 

DATA  ICHASN/5HCHASN/ 

YONO 

SO 

DATA  LBECH/5HLBECH/ 

YONO 

90 

DATA  MARE/5HHARE  / 

YONO 

100 

DATA  N0RVA/5HN0RVA/ 

YDNO 

110 

OATA  IPEARL/5HPEARL/ 

YONO 

120 

DATA  IPHILA/BMPMILA/ 

YONO 

130 

OATA  IPTSNM/5MPTSNM/ 

YONO 

160 

OATA  IPUGET/5HPUGET/ 

YONO 

150 

c 

YONO 

160 

ID  * 0 

YONO 

165 

IFIIYO.EQ. ICHASNI  10  = 1 

YONO 

1 F 0 

IFUYO.EQ.  LBECHI  10  * 2 

YONO 

180 

IFIIYO.EQ.  MARE)  10  * 3 

YONO 

190 

IFIIYO.EQ.  NORVA)  10  * 6 

YONO 

200 

IFIIYO.EQ. IPEARL)  10  = 5 

YONO 

210 

IF! IYO.EQ.IPMILAI  10  * 6 

YDNO 

220 

IFIIYO.EQ. IPTSNH)  10  = 7 

YONO 

230 

IFIIYO.EQ. I PUGET)  10  * S 

YONO 

260 

RETURN 

YONO 

250 

END 

YONO 

260 

35 


ooo  o o oooo 


c 


’SUBROUTINE  YEAR 

( IFYR* IYOYR) , RE  TURNS ( NOYE  AR 1 

• ••• 

to 

SUBROUTINE  YEAR 

(IFYR, IYOYR,  •) 

20 

YFAR 

2S 

SUBROUTINE 

TO  SEE  IF  THE  YEAR  ON  THIS 

OATA  RECORO  IS 

YEAR 

10 

ONE  THAT 

NEEDS  TO  BE  PROCESSED 

TEAR 

■•0 

YEAR 

so 

OINENSION  IYDYR 

T5> 

YEAR 

60 

YEAR 

TO 

00  10  I * 1,S 

TEAR 

SO 

IF( IFYR.EQ.IYOYRIII)  RETURN 

TEAR 

90 

CONTINUE 

YEAR 

too 

’RETURN  NOYEAR 

*»*• 

110 

RETURN  1 

120 

YEAR 

12S 

alternate 

RETURN  GOES  TO  THE  PLACE  IN 

THE  PROGRAN 

YEAR 

no 

THAT  RE  AOS  THE  NEXT  RECORO 

YFAR 

in 

END 

YEAR 

ISO 

w< 


0.1.0  C.ltfSSARY 


% 


COMMON  VAR  1 ABU'S 


Common  H lock/ 1 DATA 

ORPPFF(  100,0,2)  Array  ot  ship  qroup  definitions  whore  the  first 
subscript  refers  to  the  qroup  mmlx'i , the  second  to 
the  ship  type  ano  hull  number,  arxi  the  third  to  (1) 
lower  bound  ot  a set  ano  (2)  upjxH  bound  ot  that 
set . 

IYDSFl.(15)  At  ray  ot  yards  to  tie  processed. 


Common  Bjock.  1PITNT 

COM  WT  ( S ) Array  ot  report  identification  information. 

HATF(l)  Array  containing  the  date  ot  the  run. 


Common  Block/MlSC 

L YDC  »RP  ( 1 , 2 5 ) Array  ot  group  numbers  where  t hr'  first  subscript 

refers  to  the  yard  name  and  the  secotvi  to  the  group 
nutiher  to  be  processed. 

dGRtX  10(25)  Array  of  matching  group  lumbers  tor  a specific  yam. 

KORlXiPf 2b)  Array  ot  group  lumbers  required  tor  a specif  ic  yard. 

Mt'HCJUP ( 2 5 ) Array  ot  matching  group  nimbers  tor  a specific  record. 


Common  Block  HIT 

1UUU,(  100, ti, 2)  Array  ot  hull  lumbers  where  t hr'  first  subscript  reteis 
to  the  group  nimbot  , the  secoivl  to  the  hull  mmlx't  , 
ami  the  third  to  (1)  a lowr'i  hound  tin  a set  aixl  (.') 
an  uppet  bound  tor  that  set. 

I SIIIP(  100,0,2)  Array  ot  ship  types  where  the  tust  sulisci  ipt  leters 
tri  the  gtoup  lumber,  the  secotvi  to  t hr'  ship  tyjx-,  atxi 
t hr'  third  to  (l)  a lowot  txuinii  toi  a set  aixi  t.')  an 
upfx'i  Ixuiixi  toi  that  sot. 
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Common  lUock/VAL/ 


VALA(20) 

VALR( 20 ) 
VAI,T(20) 

Common  block/ WORK 
ARRAY A ( 2 5, 5,20 ) 

ARKAYR (25,5,20) 

SVAI2M20) 

SVALR(CO) 


Array  ot  total  direct  alteration  niandays  for  shops  tor 
a given  yaru. 

Array  ot  total  direct  repair  manoays  for  shops  tor 
a given  yard. 

Array  ot  the  total  ot  the  repair  and  alteration 
matxiays  tor  a given  yard. 


Array  ot  alteration  data  where  the  first  subscript 
K'ters  to  the  ship  group  number,  the  second  to  the 
year,  ano  t tie  third  to  the  20  alteration  manaays  tor 
shops . 

Array  of  repair  data  where  the  t irst  subscript  refers 
to  the  ship  group  mnitxn  , the  second  to  the  year,  ana 
the  third  to  ttie  20  repair  niandays  tor  shops. 

Array  ot  total  direct  alteration  manoays  tor  shops  tor 
a given  record. 

Array  of  total  direct  rofvni  manoays  lor  shops  tor  a 
given  record. 


IjOCAI,  VARIABLES 


i.  •' 


1 i 


Main  Program 

Alii. 

Variable  used  to  request  the  summary  ot  data 
ent ire  yard. 

tot  an 

ALT 

Var  iable  used  to  request  computation  ot  alt 
data. 

erat ion 

COAST 

Coast  (east  or  west). 

I 

DO- loop  index. 

IALL(15) 

Array  used  to  determine  whether  the  entire  yarn  is  to 
be  sunned . 

iaw 

Cent inuat ion  indicator. 

1 PAYS 

Product  ion  shop  productive  (PSP)  mandays  tot  this 
period. 

idone 

Variable  set  equal  to  the  number  ot  yatds  requited  ano 
decremented  as  each  one  is  completed. 

I DUMMY 

Dummy  variable  used  in  read  inn  the  secoixi  ot  a 
group  definition  earns. 

(VUt  ot 

IDUM1 

Dummy  variable  used  in  re-reamnq  group  dot 
earns  tor  print -out. 

mit  ion 

IDUM2 

Dummy  argument  in  subrout ine  HFADFR. 

IEND 

Availability  end  date  (mo/ciy  yr). 

l FIRST 

Flat]  set  to  "1"  alter  reading  t list  teootn  ot 
otherwise  set  to  "0". 

a vain; 

IFYR 

Fiscal  year  tor  this  record. 

I GROUP 

Group  number  read  tram  Shop  File. 

IGRPNO( 100) 

Array  ot  group  nun  bets  identifying  groups  in  Group 
Definition  Deck. 

II 

Subscript  designating  specific  yard. 

1 1 1 

Counter  used  to  determine  nunlxn  ot  yards. 

IOPT(  l r>) 

Array  ot  options  for  a given  yarn. 

I PFRCT 

Percent  of  PSP  mandays  toi  alterations. 

IPFRD 

Per iod  (this  record). 

M.un  I't  i"it  .mi  u'ont  uuusi) 


ISIlUl.l 

I SCI  V' 

ISTPT 
I'lMW 
l VP 
1VPP 

I VPVt’i  •') 

I VI  Mu  I ■>,  ‘U 

.1 

,1,1 

.It 'I'T 


K 

KK 


hi  'PI' 

I 

1 A' IT 

HVP.-Mv 


Ship  lyj\'  .mo 

1 1 an  ( ho  Shop 

Iiul  1 nnmbfi  , 
IT  If . 

If. Ill  .is  .1  : 

• uni  If  s'. u t.iPlf 

Si vo  1.1I1  .-.it  ton 

v'.itisloi  y . 

Av.i  i loin  1 1 1 :• 

t .11  t ll.lt  C (Ills' 

ily  yt  ) . 

IN  jif  WOI  k . 

Voto  n.urf  io.kI 

t i an  Shop  P i 

If. 

N.uiif  ol  you!  p 

Ot  pi  t'V  isHIS  1 

Ps'sH  ii ) . 

A I 1 . 1 V ot  S'f.U  S 

toi  .1  S(XVlt 

to  y.itil. 

•\i  i .iy  ot  s'o .ii  o 
y.u  >1  .iivi  t ho  :■< 

who i f t hf  t 1 1 st  suPtvi i pi 

t's'OI  111  to  t lit'  S’f.ll  . 

t I ft  ft  s to  t Ilf 

IX'  1 v X 'p  llxit'X. 

S'OUttt  f l LI:  iX!  1 O ot't  ft  :i‘  lllf 
Vf.lt:;  to  Is'  1 >1  Off ;;;  .Oil  t Ol  .1 

t hf  tuimlvt 
o tvf n y.u  il . 

ot  . it  onix.  .mil 

l'i'I  ton  toi  .iv. 

! vo  1 1 10  y.uo. 

Wllil'll  will'll  : 

•ft  to 

" 1" , 

l f(Sl  its  .11  f 

t v|\ 

'!  t t\i  on;  whi 

'll  St 

't  to 

II  X II 

* / 

. 1 1 1 ft  .it  ions 

si!  (' 

1 f (X'l  t l 

si  i'll; 

wl  It 

'!'  .'.O 

t t O 

II  1 II 
' > 

.1  tot.il  ol 

1 I'lSI  1 t S .11X1  .lit' 

t'l  sit 

loll: . 

sit  O 

1 fix' 

1 t tsi 

on;  whfii  s.fl 

1 to 

"1 ", 

l fl',1  its,  .1 

1 1 t'l 

.it  tons 

stlUl 

t tl 

i • to 

t sll 

sll  t 

ol  l 

t ffs’i  t tsi  on 

IX'  h 

VI'  llxtl'X. 

P l . io 

Wills'll  Will'll  ■ 

'.I't  t 

: i ' 

"0", 

OIOllpS  .Hf 
| , > 

: .mill 

ii i ! Put 

not  i 

•nt  i 

l<  Vs 

1!  <1; 

wht 

'll 

.'.ft 

" 1 " , 

flit  iif  y.u  o 

1 : ■ 

■ imiii’t'O 

l u( 

Hv  ’t 

Ol  Ol 

If 

U t It 

*n 

St 't 

M ) II 

1 1' 

flit  It  f S'. It  o 

out 

* 1 1 Olips 

,ii  t * 

.tir.'M’t 

' t . 

Pi. HI 

S.ft  to  "1" 

1 1 

t'llt  Ilf 

y.u  a 

l : 

to  t 

v pi 

x \ t 

Sl\l, 

Ot  111 ' 1 

IWlS.l'  s.ft  to 

"tl"  , 

IX'-  il 

'Op  UXIfX. 

V.li  1. 

iP If  oont  .i  m mo 

t hf  lo 

t t t ' 1 : 

"l, 

AST" 

.I!  V) 

US 

t \ 

1 111 

t f St 

ins  tfiiiiin.it 

u>n  k 

'!  input 

kl.lt  . 

i . 

N l unt  'i 

't  Ot  S'f.U  • 

to  t'f  I'lOOt 

u\i 

t Ol 

.I  : .| 

[*Vlt 

IV 

\ 

.no. 
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Main  Program  (Continued) 

NGROUP  Number  of  groups  to  be  processed  for  a specific 

yard. 

NGRPS(25)  Array  of  nunber  of  groups  for  a specific  yard. 

NYPS  Total  nunber  of  yards  to  be  processed. 

NYEARS(15)  Array  containing  number  of  years  to  be  processed. 

OWN  Yard  ownership  indicator. 

REP  Variable  used  to  test  for  computing  repair  values. 

TOTAL  Variable  used  to  test  for  computing  the  total  of 

repairs  ana  alterations. 


ZALL, 

Var  iable 

used 

to 

test 

for 

the 

character s 

"ALL". 

ZALT 

Variable 

used 

to 

test 

for 

the 

characters 

"ALT" . 

ZREP 

Variable 

used 

to 

test 

for 

the 

characters 

"RFP" . 

ZTOT 

Var  iable 

used 

to 

test 

for 

the 

characters 

"TOT" . 

Subroutine  COMPAR 
I 

I FLAG 


IGRPNO(IOO) 

I SHULL 

J 

K 

NGROUP 

Subroutine  HEADER 

ID 
I DP 
I PAGE 


DO- loop  index. 

Flag  set  to  "1"  after  t inding  an  agreement  between  the 
group  numbers  to  tie  processed  arxl  the  group  numbers 
identifying  group  definition  data  base. 

Array  of  group  numbers  identifying  groups  in  Group 
Definition  Deck. 

Ship  type  and  hull  number. 

DO- loop  innex. 

DO-loop  index. 

Number  of  groups  to  be  processed  tor  a specific  yard. 


Identification  nimber  assigned  to  each  yard. 

Yard  identification  number  (of  previous  record). 
Variable  used  to  increment  page  numbers. 
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Subroutine  HEADER  (Continued) 


JOPT  Option  for  a specific  yard,  which  when  set  to 

"1",  repairs,  only  are  reported  on;  when  set  to 
"2",  alterations,  only  are  reported  on;  when  set  to 
"3",  a total  ot  repairs  ana  alterations  are  reported 
on;  when  set  to 

"4",  repairs,  alterations  ana  the  total  are  all  re- 
ported on. 

NOPG  Flag  set  to  "2"  when  pages  are  to  be  numbered,  other- 

wise, set  to  "1". 


Subrout  me  I ERROR 


IDBL  Double  precision  variable  used  to  transfer  yard  names 

tot  err o r mes sag es . 


I DUMMY 

Single  precision  variable  used  to  transfer 
numbers  for  error  messages. 

group 

N 

Error  number. 

Subrout ino  NOSH  IP 

IBIANK 

4-character  blank  space. 

JJ 

Subscript  designating  a specific  group  number 
ISHIP  anti  IHUU  arrays. 

in  the 

KK 

DP- loop  inti  ex. 

KKK 

Subscript  designating  a specific  ship  type  anti  hull 
number  in  the  ISHIP  and  I HULL  arrays. 

L 

Implied  DO- loop  index. 

MM 

Index  used  in  I 0 statements. 

Subrout  me  REPORT 

I 

Index  tor  t iscal  year  . 

ID 

I dent  if ication  r.umbei  assigned  to  a specific 

yat  u . 

I YD 

Yard  name  being  processed . 

I YDYR( 5) 

Array  ot  years  fm  a specific  yarn. 

J 

PO“100p  index. 

JJ 

Flag  tot  group  numliet  . 

Subrout inc  REPORT  (Continued) 


JOPT 


KK 


KOPT 


L 


LL 


MY  FAR 
NGRCXJP 

Subrout  inc  RFP1 

ISHP( 20 ) 

K 

M 

Subrout  me  REP2 

I SUP (20) 

K 

M 

Subrout  me  RPP 3 

ISHP( 20 ) 

K 

M 

Subroutine  RFP4 

I SUP (20) 

K 

M 


An  option  for  a specific  yard  when  set  to 
"1",  repairs  only  are  reported  on;  when  set  to 
"2",  alterations,  only  are  reported  on;  when  set  to 
"3",  a total  of  repairs  and  alterations  are  reported 
on;  when  set  to 

"4",  repairs,  alterations  and  the  total  are  reported 
on. 

Group  number  requested  for  which  there  was  no  data. 

Flag  set  to  "1"  if  entire  yard  is  to  be  processed, 
otherwise  set  to  "0". 

PO- loop  index. 

Index  for  group  number  of  interest. 

Number  of  years  to  lx?  processed  tor  a specific  yard. 
Number  of  groups  to  be  processed  for  a specific  yard. 


Array  of  shop  numbers. 

Index  used  tor  I/O  statements. 
Index  used  for  I/O  statements. 


Array  of  shop  numbers. 

Index  used  for  I/O  statements. 
Inoex  used  tor  I/O  statements. 


Array  of  shop  numbers. 

Index  used  for  I/O  statements. 
Index  used  tor  I/O  statements. 


Array  of  shop  lumbers . 

Inoex  used  for  I/O  statements. 
Index  used  for  I/O  statements. 


Subroutine  SFAKVH 


1 1 1 

l YD 

nyps 


Dummy  at  aliment  in  lKI’HOK  subrout ine. 
Ship  type  ana  hull  numtvt  . 

Type  work. 

Yard  name. 

Yard  name  let  ptevious  reeord). 


IX'*- loop  index. 

Fiscal  veat  tor  t hi:  tecotd. 

Atra\’  ot  years  tot  this  yutd. 

IX’*-  loop  index. 

Subset  ipt  usoo  in  matehma  atone  numK'ts. 

Initial  put  aivt  et  ot  WMoop. 

Flaa  when  set  to 

"0",  a roups  are  summtxi  but  not  entire  void;  when  set 
t o 

"1",  entite  yarn  is  smnreci  but  no  aroups;  when  set 
to 

entue  yarn  am  a roups  ate  sunmxxt. 

Contiol  variat'le  m "comput<\i  ao  to". 

Flaa  set  to  "1”  it  entite  yutd  is.  to  l<o  ptoeossed, 
ot hot  wise  set  to  "0". 

IX loop  index. 

Terminal  put  amet  ot  ot  IX'*- loop. 

Numbet  ot  a roups-  to  1 v ptxvessixi  tot  a revolt  ic  yutd. 


Subta  * ut  it  to  SI  ’ M 
l 

1 FYR 

IYDYKi 'd 
J 

JJ 

dJJ 

KK 


KKK 

KOPT 

l, 

1.1,1. 

NX'.ROl'F 


Subrout  me  SKFYP 

I HUM 
I SHI' 1. 1 
ITYPWK 
1YD 
1YOP 


Argument  used  in  tianstertina  subset  ipt  ot  teouitixi 
yaro. 

Yard  name  txana  pi  ivessed. 

'IV'tal  nunbei  ot  yarns  to  lv  pt  oees.s.txi. 


•1  1 


Subroutine  TITLE 


ID 

JOPT 


Subroutine  YDNO 

ICHASN 

ID 

I PEARL 
I PH  I LA 
IPTSMH 
I PUGET 
IYD 
LBECH 
MARF 
NORVA 

Subroutine  YEAR 
I 

IFYP 
IYDYR(  5) 


Identification  nunber  assigned  to  a yard. 

Option  for  a specific  yard.  When  set  to 
"1",  repairs,  only  are  reported  on;  when  set  to 
"2",  alterations,  only  are  reported  on;  when  set  to 
"3",  a total  of  repairs  and  alterations  are  reported 
on;  when  set  to 

"4",  repairs,  alterations  and  the  total  are  reported 
on. 


Variable  containing  the  characters  "CHASM" . 
Identification  nunber  assigned  to  a vara. 
Variable  containing  the  characters  "PEARL". 
Variable  containing  the  characters  "PHILA". 
Variable  containing  the  characters  "PTSMH". 
Variable  containing  the  characters  "PUGET" . 
Yard  name  being  processed. 

Variable  containing  the  characters  "LBECH". 
Variable  containing  the  characters  "MARE". 
Variable  containing  the  characters  "NORVA". 


DO-loop  index. 

Fiscal  year  for  a given  record. 
Array  of  years  for  a given  yard. 
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b.1.7  SAMPLE  RUN 


The  card  inputs  (unit  5)  tor  the  sample  run  ot  RFPSHOP  consisted  ct 
Group  Detimtion  cards  ana  yard  option  cards.  Three  croups  were  detinea. 
Group  1 was  a group  of  all  CGN's  and  was  defined  as  CGN  1 through  CGN 
9999.  Group  2 consisted  of  a single  ship,  the  CGN  3 5.  Group  1 aetined 
the  CV  59  Class  of  carriers,  so  the  lower  bound  of  the  ship  type-hull 
number  was  CV  59  and  the  upper  bouna  was  CV  62.  Two  shipyards  were 
scheduled  to  be  reported  on.  They  were  Norfolk  and  Puget  Sound.  In  both 
cases,  summaries  were  required  for  repairs,  for  alterations,  and  for  their 
total.  All  three  ship  groupings  were  requested  for  Norfolk  but  reports  tor 
Puget  Sound  were  to  be  generated  for  Group  2 only.  Three  twit-consecutive 
fiscal  years  were  to  be  reported  on. 

The  Shop  File  (unit  11)  produced  by  program  XPLODF  is  a binary  tile. 
Ten  data  records  from  this  tile  are  given  in  a readable  format.  Each 
record  was  pr intea  on  five  lines.  The  first  line  contains  iaentifying 
information  from  the  Depot  Maintenance  Assignment  File  (DMAF).  The  second 
and  third  lines  give  the  total  direct  repair  manaavs  tor  each  ot  the  20 
shops  and  the  fourth  ana  fifth  lines  dive  the  total  alteration  mandavs 
tor  each  ot  the  20  shops,  plus  two  other  values  from  DMAF.  These  are  the 
Production  Shop  Productive  (PSP)  mandavs  for  that  record  and  the  percent 
of  PSP  mandavs  for  alterations. 

Shop  repr'  (unit  6)  show  the  mandavs  projected  by  shops  for  five 
fiscal  years  > Norfolk  Shipyard  for  Group  1,  a group  of  all  CGN's.  when 
projections  were  : eauested  for  Group  2,  the  CGN  35,  an  error  message  was 
written  stating  there  was  no  work  for  that  ship  at  Norfolk  tor  any  of  the 
required  years.  There  were,  however,  projected  workloads  at  Puget  Souna 
for  the  CGN  35.  Summary  reports  were  produced  tor  the  CV  59  class  at 
Norfolk  and  all  sample  outputs  show  repair  manaays,  alteration  manaavs, 
and  total  mandays. 
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Unit  5 - Card  Inputs 


1 

CGN 

1 

CGN 

9955 

1 

2 

CGN 

35 

CGN 

35 

2 

3 

CV 

55 

CV 

6? 

3 

-1 

08/30/77  ONPPS  SAMPLE  RUN 


NOR  VA 

REP 

ALT 

TOT 

78 

79 

80  81  82 

NORVA  1 
PUGET 

2 3 
REP 

ALT 

TOT 

79 

81 

82 

I PUGET  2 

LAST 


; 
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6 . 2 PROGRAM  PRFWBS 


* 


"■* 1 1 :■ 


6.2.1  DESCRIPTION 

The  program  PREWBS  (Prepare  SWBS  File)  facilitates  the  qeneration 
of  SWBS  reports  by  preprocessing  the  SWBS  File  for  use  by  the  Drogram 
RFPWBS.  The  SWBS  File  is  a binary  file  prepared  by  the  program  XPIODF  (see 
Section  6.1).  It  breaks  down  the  work  for  each  scheduled  availability  (on 
DMAF)  by  single-diqit  SWBS  category. 

OSD  guidelines  for  reporting  by  SWBS  categories  established  the 
primary  reporting  level  as  groups  of  ships.  These  groups  may  be  quite 
broad — such  as  surface  combatants,  submarines,  etc. — or  they  may  be 
more  restrictive — to  ship  types,  ship  classes,  or  even  individual  hulls. 
In  order  to  permit  such  wide  variations  in  ship  groupings,  DMPPS  uses 
the  following  scheme  to  define  the  groups.  A DMPPS  ship  group  consists 
of  sets  of  sh ip- type/hul 1-number  ranges  (such  as  CV  19-CVN  70).  Up 
to  six  sets  of  ranges  are  permitted  in  defining  each  ship  group.  Note 
that  a ship  may  fall  within  more  than  one  group  or,  conversely,  may 
not  belong  to  any  group.  Both  these  cases  are  permissible  within  the 
SWBS  report ing  structure. 

Cards  specifying  the  oesired  ship  groups  form  one  of  the  key  inputs 
to  PRFWBS.  The  first  phase  of  the  PRFWBS  processina  includes  reading  in 
these  cards,  storing  the  group  definitions  in  an  array,  ana  checking  them 
for  error.  The  error  check  involves  examining  each  ship-type/hull-number 
range  for  alphabetical  order.  A list  of  all  ship  groups  is  produced 
ana  any  erroneous  ranges  are  indicated  by  an  asterisk.  In  addition, 
all  ship  groups  (including  those  with  errors)  are  written  into  the  PRFWBS 
output  file,  the  SWBS  (by  Groups)  File. 

The  second  (and  final)  phase  of  the  PRFWBS  processing  involves 
reading  in  each  record  of  the  SWBS  File,  examining  the  ship  type  and 
hull  number  of  the  record,  and  determining  which,  it  any,  group  oi  groups 
the  ship  falls  within.  All  information  from  the  SWBS  File  record  is 
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duplicated  on  the  SWBS  (by  Groups)  File  for  each  qroup  within  which  the 
ship  falls.  In  addition,  each  new  record  contains  a group  number.  Thus, 
if  a ship  falls  within  no  group,  the  record  is  not  written  at  all  on  the 
SWBS  (by  Groups)  File.  On  the  other  hand,  it  a ship  falls  within  three 
aroups,  three  copies  of  the  record  are  made  (each  with  a different  group 
number ) . 

To  expedite  its  processing,  PREWBS  compares  the  ship  type  ana  hull 
number  ot  the  current  SWBS  File  record  with  that  of  the  preceding  record. 
If  they  are  the  same,  the  list  of  groups  to  which  the  ship  belongs  has 
already  been  prepared  am  not'd  not  bo  regenerated. 

A sort  must  follow  the  PRFWBS  program.  It  is  an  integral  part  of  the 
run  set-up  for  PRFWBS  (see  Section  t>.2.2)  and  sorts  the  output  SWBS 
(by  Groups)  File  first  by  group,  then  by  fiscal  year. 

PREWBS  consists  of  a main  program  and  two  subroutines.  The  hierarch- 
ical diagram  of  PREWBS  is  given  in  Figure  b.2-1. 


PREWBS 
Main  Program 

Monitor  processing 
Prepare  SWBS  (by 
Groups)  File 


Subrout i ne 
CARDIO 

Read  in  ship 
group  cards 


Subroutine 
BET GRP 

Determine  the 
group(s)  to  which 
the  ship  belongs 


Figure  b.2-1  - PRFWBS  Hierarchical  Diagram 


Main  Proqrani 


The  main  program  of  PRFWBS  calls  subroutine  CARPIO  to  reao  in  and 
process  the  ship  group  cards.  It  then  reads  in  (one  at  a time)  the 
records  of  the  SWBS  File,  calls  subroutine  DFTGRP  to  prepare  a list  ot  the 
groups  within  which  the  ship  falls,  anti  prepares  the  SWBS  (by  Groups) 
File. 


Subrout ine  CARPIO 

Subroutine  CARDIO  reads  in  all  ship  group  cards,  examines  them 
for  error,  prints  them  out,  and  writes  them  on  the  SWBS  (by  Groups) 
File. 

Subroutine  DFTGRP 

Subroutine  DETGRP  prepares  a list  ot  the  groups  within  which  a 
particular  ship  falls. 


6.2.2  RUN  SFT-UP 


The  following  set-up  is  used  to  run  the  PPFWBS  program  on  the  IBM 
360/370  computer: 


//NVSPREMB  JOB  (XXXXXXXXXX.XXXXX)  . USER,  CLASS=C.  1 1 BE  = ( ,1 S>  . MSGLEYEL  = 1 
Z/JOBLIB  00  OSN=NVS01.QEPOT.LIB,DISP=SHR 


//  EXEC  PGM=PRFMBS 
//GO. F T 0 SF  0 0 1 00  • 


(EXECUTE  PROGRAM  PREMBS) 


PREWBS  card  inputs  (unit  5) 


//GO.  ET  36F  0 01  00  SYS0UT  = A (LIST  OF  GROUP  DEFINITIONS! 

//GO. FT  1 OF  0 01  00  0SN  = NVSJ1. SMBS. EXPLODE. 0»T»,DISP  = SHR  (INPUT  FILE) 

/ /GO.  FT11F001  DC  OSN=llSMBS,DISP=  ( .PASS!  ,UNIT=SYSOA  , SPACE = ( 1 30  0 ) , 

//  OCB  = (LRECL-l<.<.,RFCFM  = YBS.BLKSIZE  = t<.<.A)  (OUTPUT  FILE) 


//  EXEC  SOA  (SORT  SMBS. GROUPS  FILE) 

//SORTIN  00  DSN  = USM8S,0ISP*(0L0,0wLETE> 

//SORTOUT  00  OSN=NWS01 .SMBS .GROUPS. OATA ,0ISP=SMR 

//SYS I N 00  • SORT  FIRST  BY  GROUP  NUMBER,  THEN  BY  FISCAL  YEAR 

SORT  FIELOS=(2S.O, 4.0 , A , 29. 0 ,4. 0 , A) , FORMA T=BI 


i 


6.2.3  INPUTS 


Cara  inputs  are  made  using  unit  5.  The  format  for  these  cards 
is  given  in  Section  6. 2. 3.1. 

Unit  5 - Card  inputs  which  define  the  ship  groups. 

The  following  additional  unit  is  usea  to  input  information  from 
a aisk  file  created  by  a previously  run  program  (XPIODE'): 

Unit  10  - SWBS  File. 

The  format  for  this  file  is  given  in  Section  6. 2. 3. 3. 


6. 2. 3.1  Unit  5 - Card  Input 


Group  Definition  Cards.  Two  cards  are  required  to  define  each  ship  group. 
As  many  as  100  such  pairs  of  cards  may  be  input. 


Type  A Card.  The  format  for  the  first  group  definition  card  is: 


Variable  Name 

Description 

Field 

Format 

IGRPNO 

Group  number 

1-3 

13 

SHIP ( 1 ,1 ) 

Ship  type  of  the  lower 
bound  of  the  first 
ship  range 

9-12 

A4 

IHULL( 1,1) 

Hull  number  of  the  lower 
bound  of  the  first  ship 
range 

13-16 

14 

SHIP (1,2) 

Ship  type  of  the  upper 
bound  of  the  first  ship 
range 

20-23 

A4 

IHULL( 1,2) 

Hull  number  of  the  upper 
bound  of  the  first  ship 

24-27 

14 

• 

range 

• 

• 

SHIP (3, 2) 

Ship  type  of  the  upper 
bound  of  the  third 
ship  range 

68-71 

A4 

IHULL( 3,2) 

Hull  number  of  the  upper 
bound  of  the  third  ship 
range 

72-7  5 

14 

Type  B Card.  The  format  for  the  second  group  definition  card  is: 


Variable  Name 

Descript  ion 

Field 

Format 

IGRPNO 

Group  number 

1-3 

13 

SHIP(4 ,1 ) 

Ship  type  of  the  lower 

9-12 

A4 

bound  of  the  fourth 

ship  range 

i 


Type  B Card  (Continued) 

Variable  Name 

Description 

Field 

Format 

IHULL(4,1) 

Hull  number  of  the  lower 
bound  of  the  fourth 
ship  range 

13-lb 

14 

The  SWBS  File  is  a binary  file.  Each  record  on  the  file  corresponds 
to  a record  on  the  repot  Maintenance  Assignment  File.  The  organization 
of  each  record  is  as  follows: 


Variable  Name 

Descr ipt ion 

Position 

Format* 

SHULL 

Sh  ip-  type  > hul  1-number 

1 

( A8 ) 

Us 

Type  work 

n 

(A3) 

YARD 

Shipyard 

3 

( A5) 

1NP0 ( 1 ) 

Group  number  (=0) 

4 

(13) 

INFO( 2) 

Fiscal  year  (this  record) 

3 

(12) 

I NFO ( 3 ) 

Yard  ownership  indicator 

b 

( Al ) 

INFO ( 4 ) 

Coast 

7 

(Al) 

INFO( 5) 

Period  (this  record) 

8 

(ID 

INFO(b) 

Continuation  indicator 

9 

(Al) 

INFO ( 7 ) 

Availability  start 
date  (mo  day  vr) 

10 

(lb) 

INFO(b) 

Availability  end  date 
(mo  day/'yr) 

11 

(lb) 

I NPO ( 9 ) 

Special izat ion  category 

12 

(A3) 

RI NFO (1-9) 

Total  direct  repair  man- 
days  for  each  S'.vBS 
category 

13-20 

(9F10.2) 

RINFOi 10-18) 

Total  direct  alterations 
mandays  for  each  SWBS 
ca teqory 

21-29 

(9F10.2) 

RINFCK 19) 

Fraction  of  total  direct 
repair  mandays  for 
"other  direct" 

30 

(F10.6) 

RINFO(20) 

Fraction  of  total  direct 
alterations  mandays  for 
"other  direct" 

31 

(FlO.b) 

*The  format  is  given  tor  reference  only.  Since  the  tile  is  a binary 
tile,  formats  are  not  used  in  reading  the  tile. 

L : 


6.2.4  oumrrs 


The  following  unit  is  used  by  PRFWBS  to  generate  hara-copy  output: 

Unit  6 - List  of  ship  group  definitions. 

Section  6.2.7  shows  a sample  of  this  output. 

PREWBS  uses  the  following  additional  unit  to  store  information 
on  disk  for  use  by  a subsequent  program  (REPWBS): 

Unit  11  - SWBS  (by  Groups)  File  (Unsorted). 

The  format  of  this  file  is  given  in  Section  6. 2. 4.1. 


i 


6. 2. 4.1  Unit  11  - SWBS  (by  Groups)  File  (Unsorted) 

The  SWBS  (by  Groups)  File  is  a binary  file.  The  formats  aivcn 
tor  the  variables  are  thus  for  reference  only. 

Group  Definition  Records.  The  group  definition  records  precede  all 
other  records  in  the  unsorted  version  of  the  SWBS  (by  Groups)  File.  There 
may  be  up  to  100  such  records  on  the  file.  The  "format"  for  each  record 
is: 


Variable  Name 

Descr iption 

Position 

Format 

BTANK 

Contains  Hollerith  blanks 

1 

( A b ) 

I PUN 

Contains  a zero 

2 

(ID 

BIiANK 

Contains  Hollerith  blanks 

3 

(AS) 

IGRPNO 

Group  number 

4 

(13) 

muM 

Contains  a zero 

5 

(11) 

SHIP( 1,1) 

Ship  type  ot  lower  Ixuind 
of  t irst  ship  ramie  ( in 
the  group) 

6 

(A4) 

1 HUT  .1 . ( 1,1) 

Hull  number  ol  lower  bound 
ol  t irst  ship  ranee 

7 

(14) 

SHIP(1 ,2) 

Ship  typo  of  upper  Ixuind 
ot  l irst  ship  range 

8 

( A4 ) 

IHUU.O  ,2) 

Hull  number  ol  upper  bound 
ot  t irst  sh ip  ramie 

g 

(14) 

SHIP( 2,1) 

Ship  type  of  lower  bound 
of  second  ship  tange 

10 

( A4  ) 

IHULL( 2 , 1 ) 

Hul 1 number  ot  lower  bound 

1 1 

(14) 

• 

ot  second  ship  range 

• 

• 

SHIP (6, 2) 

Ship  type  ot  upix^r  bound 
of  sixth  ship  range 

28 

(A4 ) 

IHLIU.(6,2) 

Hul  1 Number  of  upjx'r  Ixuind 
ot  sixth  ship  ramie 

28 

(14) 

FI  I,(.FR(  1-1 ) 

Dummy  array 

64 

30-32 

( 3A4 ) 

1 


SUBS  Records . Each  SUBS  record  corresponds  to  a record  on  the  SUBS 
File  (and  hence  to  a recoro  on  DMAS) . However,  there  may  be  more  than 
one  SUBS  record  for  any  given  recoro  on  the  SWBS  File,  it  the  ship  (to 
which  the  record  applies)  falls  within  more  than  one  group.  Conversely, 
it  the  ship  tails  within  no  group,  the  SWBS  File  records  tor  the  ship 
do  not  appear  on  the  SUBS  (by  Groups)  File.  The  "format"  tor  each 
SUBS  record  is  as  follows: 


Vat  lable  Name 

Descr ipt ion 

Pos i t ion 

Format 

SHULL 

Ship  type-hull  number 

1 

(A8 ) 

TW 

Type  work 

n 

(A3) 

YARD 

Shipyard 

j 

( A5) 

INFOl 1 ) 

Group  number 

4 

(13) 

LNFO( 2 ) 

Fiscal  year  (this  record) 

5 

(12) 

INFO( 3 ) 

Yard  ownership  indicator 

6 

( Al ) 

IN1Y)(  4 ) 

Coast 

7 

( Al  ) 

INFO( 5) 

Period  (this  record) 

8 

(ID 

INFO (6 ) 

Continuation  indicator 

9 

(Al  ) 

INF0(7) 

Availability  start 
date  (mo/day/yr) 

10 

(16) 

INF0(8) 

Availability  enn 
date  (mo/day/yr) 

11 

(16) 

I NIX')  ( 9 ) 

Specialization  category 

12 

(A3) 

RINFO( 1-9) 

Total  direct  repair  man- 
days  lor  each  SWBS 
category 

13-20 

(9F10.2) 

RINFO( 10-18) 

liital  direct  alteration 
mandays  for  each  SWBS 
category 

21-29 

(9F10.2) 

RINFO( 19) 

Fraction  of  total  direct 
repair  mandays  for 
"other  direct" 

30 

(FI 0.6) 

RINFD(20) 

Fraction  of  total  direct 
alteration  mandays  toi 
"other  direct" 

11 

(FI 0.6) 

6 5 


1 


j 


6.2.5  PROGRAM  LISTING 


' 

. 


>••••  PROGRAM  PREM BS I INPUT, OUTPUT,  TAPES  * INPUT  , TAPF6  = 0UTPUT , TAPE10, 
TAPtin 


UNIT  S - INPUT  - GROUP  OEF INTT ION  CAROS. 

UNIT  b - OUTPUT  - FDR'NATTEO  PRINTOUT  OF  GROUP  DEFINITIONS, 

UNIT  IP-  INPUT  - BINARY  FILE  CONTAINING  MAN-OAT  REQUIREMENTS  BY  MBS 
FOR  FACH  SNIP  AVAILABILITY. 


UNIT  11-  OUTPUT 


FYPANOFO  BINARY  FILE  CONTAINING  CROUP  DEFINITIONS 
AND  MAN-DAY  REQUIREMENTS  BY  MBS  FOR  EACH  SHIP 
AVAILABILITY  ANO  FACH  GROUP. 


PROGRAMMED  BY  LI  NO  A L.  LAMATRICE,  (1TNSROC  ICODf  l A i> ) , JAN.  IRES. 


OIMENSI ON  INFOIRJ ,RINFO 120) 


’ INTEGFR  GRPDEF, SHULL, SHULLP 
REAL'S  GRPOFF, SHULL. SHULLP, YAPO 

COMMON  /GROUPS /GRPDEF (1 0 0,5, 21 , I&RPNO ( 100) ,NGRPS , I GRPS 1 1 0 > , NG 


C 

C 

C CALL  CAROIO  TO  READ  IN  GROUP  DEFINITION  CAROS.  

CALL  CARDIO 
MRITE  I 6,  SO) 

SO  FORMAT  (INI) 

C 

C RFAO  IN  NEXT  SHIP  RECORD.  

SHULL  P*  0 

C'100  READ  (10)  SHULL, TM, YARD, INFO, RINFO 

100  REAO  (10, f NO  =140)  SHUL  L , T M , Y ARD,  INFO  ,R  INFO 
C*""IF  (EOF  (lO).NE.O.O)  GO  TO  140 
C 

C IF  THIS  SHIP  IS  NOT  f HE  SAME  AS  THE  PREVIOUS  SHIP,  OrTERMI NE  MHICH 

C GROUPS  IT  BELONGS  TO.  

IF  (SHULL. EQ.SHULLP)  GO  TO  120 
SHULL  P=  SHULL 

C'""CALL  DE  TGRPI S HULL)  • RET  URNS  < 1 SO ) 

CALL  OET&RP1  SHULL  , *1S0) 

MRITF  Tb.llS)  SHULL, TM, NG, (IGRPS(I), 1=1. NG) 

11S  FORMAT  (10X,AA,5H  C TM *, A3 , 1 AH ) - BELONGS  TO, I?. AH  GR OUPS I , 1 0 I 4) 
C 

r MRITE  SHIP  RECORO  ON  UNIT  11  NG  TINES.  

i?o  no  no  i = i, ng 

INEO(l)=IGRPS(I) 

130  MRITE  111)  SHULL, TM, YARD, INFO, RINFO 
GO  TO  100 

C 


10 

tt»» 

20 

PREM 

30 

PREM 

40 

PREM 

50 

PREM 

GO 

PREM 

70 

PREM 

SO 

PREM 

SO 

PREM 

100 

PREM 

no 

PREM 

120 

PREM 

1 30 

PREM 

1R0 

PREM 

ISO 

PREM 

1 GO 

PREM 

170 

PREM 

1A0 

PREM 

1 SO 

PREM 

200 

PREM 

210 

» • • • 

220 

. . « . 

230 

PREM 

240 

PREM 

2S0 

PREM 

2b  0 

PREM 

270 

PREM 

2 A0 

PREM 

2S0 

PREM 

300 

PREM 

320 

PREM 

330 

PREM 

340 

PREM 

3S0 

PRF  M 

3 bO 

PREM 

370 

3A0 

. . . . 

3 SO 

»«  » » 

440 

PREM 

4 S 0 

PREM 

4 bO 

PREM 

4 70 

PREM 

4 A 0 

PREM 

4 SO 

* •»  . 

soo 

. • . , 

s 10 

TENP 

S 20 

TE  HP 

S 30 

PRF  M 

S 4 0 

PREM 

sso 

PREM 

SbO 

PREM 

S 70 

PREM 

S A0 

PREM 

SSO 

PRE  M 

bOO 

140 

STOP 

150 

MRITE 

16, 160  ) 

SHULL, TM 

160 

FORMAT 

(10X,  AS, 

7H  (TM=,A3,24H) 

SHULL  P=  0 
GO  TO  100 
F NO 


PREM  blO 
PREM  620 

BELONGS  TO  NO  GROUP.)  PREM  b30 

PRT M b3S 
PREM  640 
PREM  bSQ 


66 


r>  n no  nnnon  nnonononnn 


SUBROUT  INF  CAROIO  CARD 

CARO 

CARO 

SUBROUTINE  CAROIO  (CARO  INPUT/OUTPU Tl  RE AOS  IN  THE  INPUT  CAROS  CARO 
WHICH  DEFINE  THE  CROUPS.  IN  AOOITION,  IT  WRITES  T HF  GROUP  OFF  I NI T I ONSCAR 0 
ON  UNIT  11  IAS  BINARY  RECORDS)  ANO  RPINTS  THEN  ON  UNIT  b.  CARO 

CARO 

OINFNSI  ON  SHIPt6,'?),IHJLLI6,?),N0TEtb), FILLER!  J>  CARO 

CARO 

••••INTFGFR  GRPOEF, BLANK  •••• 

RF  Al • A GRPOEF, BLANK  •••• 


CARD 

CONHON  /GROUPS/GRPDFF II 00, 6,? ) , IGRPNO 1 1 0 0 I , NGRPS , IGRPS 1 1 0 1 . NG  CARO 

CARO 

DATA  IOUN/O/,  rRLANK/lM  /,  IAST/IM*/,  BLANK/ I H /,  CARO 

FILLFR/  3*0.0/  CARO 

CARO 

C»(JQ 

CARO 

CARO 


RF  AO  NF  XT  GROUP  OFF  TNI  TION  SET.  CARO 

N*1  CARO 

I ERROR*  0 CARO 

L INF*  TO  CARO 

100  READ  IS, 110)  IGRPNOIN) , I IGRPOEFIN.I, J) ,J*1,?> , 1*1. T).  CARO 

. I I5HIPII ,J),IHULL  II ,J),J*1>?)  ,1*1,3),  CARO 

. I IGRPOEF IN,t,J),J*l,?)«I*A,6) , I ISHIPII, Jt ,IHULL I I , J) , J*t ,?)  . CARO 
. I *A  « 6 ) CARD 

110  FORNAT  II 3,31 ?X,?I 3X.AB) ) ,T A, 3I?X ,? I3X,?AA> ) / CARO 

. 3X,3(?K,? I 3X, AO ) ) , ?A, 11 ?X ,?<3X,?AA> ) > CARO 

IF  (IGRPNOIN) .GT.0I  GO  TO  170  CARO 

NGRPS  = N-1  CARD 

IF  1 1 ERROR • E Q • 0 ) RF  TURN  CARO 

OO  11?  !*LINE,SS,?  CARO 

11?  WRITE  lb, 1 IS ) CARO 

IIS  FORHATIIHOI  CARO 

WRITF  lb, 11?)  CARO 

11?  FORMAT  I 1 0 X,  A bH  *E  R ROR  - UP»FR  BOUNO  OF  THIS  SHIP  SET  PRECEOES,  CARO 

. SIM  lALPMABETICALLY)  THE  l OWE  R BOUND.  RUN  IS  ABORTED.)  CARO 

RETURN  TEMP 

STOP  CARO 

CARO 

PRINT  PAGE  HEAPING  I J,F  NF  W PAGE).  CARD 

1?0  IF  ILINE.LT. 60)  GO  TO  131  CARO 

L INF  *10  CARO 

WRITE  lb, 130)  CARO 

130  FORMAT  I1H1/34X,??HSHIP  GROUP  OF F IN  I T IONS /3AX , ?? 1 1 H- ) / CARO 

. 1H0/1M0, 10X ,SHGROUP/l OX, 7BH NUMBER  SHIP  SETS/  CARO 

. 1 0 X , ? SH ) CARO 

CARO 

CHECK  SHIP  SET  LIMITS  FOR  CORRECT  OROER.  CARD 

131  OO  13?  1*1, b CARO 

IF  IGRPOEF IN, 1,1) .FQ.  BLANK)  GO  TO  1 3S  CARO 

NOT  EII)*I BLANK  CA»0 

c*****no  iso  j*i,?  •••• 

C*1S0  GPPOEF ( N, I , J ) * ICB ? IGRPOEF IN, I , J) > •••• 

C* • *••  IF  IGRPOEc  IN,  l,  ?)  .GE.  GRPOEF  I N,l  ,1  ) ) GO  TO  13? 

IF  IGRPOEF  IN,  I,?)  .LF.r.RPOFFIN,  I,  1 I 1 GO  TO  13?  •••• 

NOTF I I) * I AST  CARO 


10 
?0 
30 
60 
SO 
60 
TO 
B0 
100 
110 
1?0 
130 
16  0 
iso 
160 
iso 
1 B0 
?00 
?!0 
??0 
? 30 
? A 0 

?so 

?b0 
??0 
?#0 
?R0 
300 
310 
3?0 
330 
3A0 
3 GO 
3b0 
3 ?0 
300 
3 B0 
A 00 
A 10 
A ? 0 
A 30 
A A0 
AS0 
AbO 
A TO 
A O 0 
AS0 
S00 
S10 
S?0 
S 30 
S A 0 

sso 

SbO 
ST0 
soo 
S NO 
sqs 
h00 


lFRROR=  1 

CARO 

blO 

1 j? 

CONTINUE 

CARO 

6?0 

NSF  TS=6 

CAPO 

630 

C.0  TO  137 

CARD 

6N0 

1 is 

NSF  TS  = I -1 

CARD 

b SO 

c 

CARO 

bbO 

r 

print  croup  definition  (this  group)  on  unit  t>.  

CARO 

670 

1 IT 

WRITF  (6.1N0I  IGRPNO(N)  , (IRL  ANK,  (SHIP(I  , J>  , IHJLL  C I , Jl  , J*1 ,2)  , 

CARO 

bOO 

• 

NOTF( II, ItI.NSFTSI 

CARO 

6 90 

1 NO 

FORMAT  ( 1M0,  11X,  I 3, 3X,A  1,  31  3*  . AN,  1*  .AN,  JH  - , AN  , IX  , AN  , 2*1 1 / 

CARO 

TOO 

# 

19X.3I JX,AN,1X,AN,3H  - , AN  , 1 X , *N  , 2A 1)  ) 

CARO 

T 1 0 

LINF=LINF*(NSFTS-l)/3  ♦ 2 

CARO 

720 

c 

CARO 

730 

c 

MRlTf  GROUP  OFFINITION  ON  UNIT  11.  

CARO 

7N0 

NRITF  (111  RL  ANN  , I OUH,  Rt  A NX  , IGRPNO  (N  I , IOUH. 

CARO 

7 SO 

( (SHIP  (I  , Jl  .THULL  (I  ,J».  J*  1.2)  ,I  = 1,F.>,FILLF» 

CARO 

760 

c 

CARO 

770 

N = N ♦ 1 

CARO 

7 00 

GO  TO  100 

CARO 

790 

F NO 

CARO 

soo 

6 8 





i i 


no  n no  o ooo  o oooooooo 


c 


SUBROUTINE  HE  TGRR I SHULL ) , RE  TURNS  I IRE T 1 ) 
SUBROUTINE  DE TGRP ( SHULL ,• ) 


I 


SUBROUTINE  DE  TGRP  ( DE  TERN  I RE  GROUPS)  PREPARES  A LIST  OE  GROUPS 
THE  CURRENT  SHIP  ISHULL)  BELONGS  TO.  IF  THE  SHIP  BELONGS  TO  NO 
GROUP,  * NON-S  TAN  OB  RO  RETURN  IS  MADE. 


INTEGER  SHULL, GRPOEF 
REAL’S  SHULL, GRPOEF 

COHHON  /GROUPS /GRPOEF  (1  00, 6,  ? ),IGRPNO  1 100),  NGRPS,  IGRPS(IO)  , NG 


NG=  0 

00  120  Izl.NGRPS 
DO  100  J=l,6 

IF  (SHULL. LE.GRPOFF <I,J,1)  .AND.  SHULL . GE .GRPOEF ( I , J, 2 ) ) GO  TO 
••••IF  (SHULL. GE.GRPOEFd.J.l)  .AND.  SHULL  ,L  E . GRPOEF  ( I ,J  , 2 ) ) GO  TO 
100  CONTINUF 
GO  TO  120 

PLACE  THIS  GROUP  ON  THE  LIST.  

110  NG=NG*1 

IF  (NG.GT.10)  GO  TO  130 
IGRPS  (NG)  ~ IGRPNOT  I ) 

120  CONTINUE 

••••IF  (NG.EQ.0)  RETURN  IRETl 
IF  (NG.EQ.0)  RETURN  1 
RETURN 

SHIP  BELONGS  TO  TOO  NANV  GROUPS.  

130  WRITE  (6,190)  SHULL 

190  FORNAT  (10*.  AB,  22H  - RELONGS  TO  TOO  WANT, 

. 99H  (WORE  THAN  10)  GROU’S.  LIST  IS  TRUNCATEO  TO  10.) 

RFTURN 

END 


• ••• 

10 

»««• 

20 

OE  TG 

30 

OE  TG 

<•0 

OE  TG 

SO 

OETG 

61 

OETG 

TO 

OETG 

80 

OETG 

90 

100 

»*•* 

110 

OETG 

120 

OETG 

130 

DE  TG 

190 

OETG 

ISO 

OETG 

160 

OETG 

I/O 

OETG 

ISO 

OETG 

190 

110»*** 

200 

1 1 0 • * • * 

210 

OETG 

220 

DETG 

230 

OETG 

290 

OETG 

250 

OETG 

260 

OETG 

2 70 

OETG 

280 

OETG 

290 

• ••» 

300 

310 

OETG 

320 

OETG 

330 

OETG 

390 

OETG 

350 

DETG 

360 

OETG 

370 

DETG 

3 S 0 

OETG 

390 

I 
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r>  n n n c>  c>  ooor>noooo'->ooooo 


function  icbzuroroi 


ANO 


CR7  (CHANGE  BLANKS  TO  ZEROSI  EXAMINES  T HE  CMARACTFRS  OF 
CHANGES  ANY  BLANKS  IT  FINOS  (OCTAL  SSI  TO  ZEROS  (OCTAL  0 


INORO 

01. 


>NOTEI  ICBZ  IS  A MAC  MI NE -DEPENDENT  FUNCTION.  USE  IT 
1 ONLY  WHEN  RUNNING  ON  A COC  6000  SERIES  COMPUTER. 


•••••OATA  HASK/7T  B/«  I BLANK /SSB/ 


•100 
•I  to 


JMASK*MASK 

j blank* iblank 

JC8Z*IN0R0 

00  110  1*1.10 

ITFHPsIWORO. ANO.JHASK 

IF  ( ITtHP.Nf .J8L0HK)  GO  TO  100 

JC8Z* JCBZ.ANO..NOT.JMASK 

JMASK  1 SM I FT  ( JMA5K.6) 

JflL ANK*  SHIFT  I JBLANK.6) 

CONTINUE 
ICBZ* JCBZ 
RETURN 
ENO 


ICBZ 

10 

ICBZ 

?0 

ICBZ 

30 

ICBZ 

SO 

ICBZ 

SO 

ICBZ 

60 

ICBZ 

TO 

ICBZ 

00 

ICBZ 

so 

ICBZ 

lot 

• ••• 

110 

ICBZ 

1Z0 

ICBZ 

131 

ICBZ 

ISO 

MM 

ISO 

• ••• 

160 

ICBZ 

ITO 

iao 

ISO 

•••• 

zoo 

«••• 

Z10 

• ••• 

zzo 

Z30 

»••• 

zso 

ICBZ 

Z50 

ICBZ 

Z60 

ICBZ 

2 TO 
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b.2.6  GLOSSARY 


COMMON  VARIABLES 


Common  Block  /GROUPS/ 

GRPDEF(  100,6,2)  Lower  (third  subscripts)  ami  upper  (third  subscript 
=2)  bounds  of  the  six  sh ip- type  hul 1- number  ranges 
for  up  to  100  ship  groups. 

IGRPNO(IOO)  Group  number  of  the  ship  groups. 

NGRPS  Number  of  ship  groups. 

IGRPS(IO)  List  of  groups  (by  group  number)  to  which  the  current 

ship  belongs. 

NG  Number  of  groups  to  which  the  current  ship  belongs. 


LOCAL  VAR  I AIM  ES 


Main  Program 
I 

INPO( 9 ) 
RINFO( 20 ) 
SHULL 

SHU  LLP 

TW 

YARD 


DO- loop  inoex. 

Array  used  to  transfer  some  of  the  information  from 
the  SWBS  File  to  the  SWBS  (by  Groups)  File. 

Array  used  to  transfer  some  of  the  information  from 
the  SWBS  File  to  the  SWBS  (by  Group's)  File. 

Ship  type  and  hull  number  of  the  current  SwBS  File 
record. 

Ship  type  and  hull  number  of  the  previous  SWBS  File 
record . 

Type  of  work  of  the  current  SWBS  File  record. 

Shipyard  of  the  current  SWBS  File  record. 
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Subrout  1 no  CARDIO 


BLANK 

FILLFR{3) 

I 

I AST 
I BLANK 
IPl'M 
1 FRROR 

I HULL {b ,2 ) 

J 

I INF 
N 

NCTF(6) 


NSFTS 

SI'lP(b,2) 


Contains  Hollerith  blanks. 

Array  whose  elements  are  all  zero. 

DO- loop  index. 

Contains  a Hollerith  asterisk. 

Contains  Hollerith  blanks. 

Contains  zero. 

Frror  indicator.  Indicates  whether  or  not  any  errors 
were  encountered  in  any  ot  the  group  definitions. 

Array  containing  the  hull  numbers  ot  the  six  ship 
ranges  of  the  current  group.  The  second  subscript 
indicates  lower  versus  upper  bounds. 

DO- loop  inaex. 

Line  counter  for  unit  6 hard-copy  output. 

Number  ot  groups  processed. 

Array  used  in  printing  out  the  group  definitions 
to  flag  erroneous  ship  ranges  with  an  asterisk. 

Number  ot  sets  ot  ship  ranges  for  the  current  group. 

Array  containing  the  ship  types  of  the  six  ship 
ranges  ot  the  current  group.  The  second  subset tpt 
indicates  lower  versus  uppet  bounds. 


Subrout  me  DRTGKP 
I 

J 

SHULL 


DO- loop  index. 

DO- loop  index. 

Ship  type  and  hull  number  ot  the  current  ship. 


mm — — m 


I 


I 


> 


ii 


6.2.7  SAMPLE  RUN 

The  sample  run  of  PREWBS  usea  the  SWBS  File  created  by  the  program 
XPLODE  (Volume  5)  as  its  basic  input  file.  Since  this  is  a binary  file, 
it  cannot  be  merely  printed  out.  However,  a formattea  version  was 
prepared  by  XPLODE  for  the  sample  run  ana  is  reproaucea  in  this  section  to 
enable  the  user  to  trace  the  processing  done  by  PREWBS.  Similarly,  the 
PREWBS  output  file,  the  SWBS  (by  Groups)  File  (unit  11),  is  a binary  file 
ana,  as  such,  cannot  be  meaningfully  printed  out.  In  this  case,  the  file 
was  sorteo  and  a formatted  version  of  the  sorted  SWBS  (by  Groups)  File  is 
displayed. 

Card  inputs  to  PREWBS  defined  the  following  three  groups: 

1 . Al 1 CGN ' s 

2.  CGN  35 

3.  CV  59  Class  ships 


Unit  5 - Card  Inputs 


1 

CGN 

1 

CGN 

9999 

1 

2 

CGN 

36 

CGN 

35 

2 

3 

CV 

5 9 

CV 

62 

3 

-1 
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Unit  6 - PPFM3S  Printed  Output 


SHIP  GROUP  DEFINITIONS 


GROUP 


NUMBER 

SHIP 

S 

E T S 

1 

CGN 

1 

- CGN 

9999 

2 

CGN 

35 

- CGN 

35 

3 

CV 

59 

- CV 

62 
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6.3  PROGRAM  PEPWBS 


6.3.1  DESCRIPTION 


The  REPWBS  program  produces  summary  reports  o£  total  direct  labor 
mandays,  airect  labor  dollars,  ana  material  dollars  for  various  Ship  Work 
Breakdown  Structure  (SWBS)  categories  projected  for  five  fiscal  years. 
These  reports  are  generated  for  various  ship  groupings.  The  following 
nine  SWBS  categories  are  referred  to  in  these  reports: 

1.  Hull  Structure 

2.  Propulsion  Plant 

3.  Flectrical  Plant 

4.  Command  and  Surveillance  (Shipboara  Installations) 

5.  Auxiliary  Systems 

6.  Outfit  and  Furnishings 

7.  Armament  (Shipboard  Installations) 

8.  Integration/Engineering  (Shipboard  Response) 

9.  Ship  Assembly  and  Support  Services 

PFPWBS  uses  as  input  a file,  SWBS  (by  Groups),  created  by  the  pro- 
gram PRFWBS.  This  program  is  a preprocessor  that  reaas  the  SWBS  File 
produced  by  the  program  XPLODE  (Volume  5 - Synthesizer  Subsystem)  ana  a 
Group  Definition  Card  Deck  which  defines  various  ship  groupings.  For  each 
grouping  there  may  be  as  mans  as  six  sets  of  lower  and  upp>er  ship-type/ 
hull-number  range  combinations.  A group  may  consist  of  a single  ship,  a 
ship  class,  functional  ship  groupings,  or  anv  combination  of  these.  In 
the  sample  run,  work  projected  for  all  CGN's  was  desired.  Therefore, 
group  1 was  defined  as  CGN  1 through  CGN  9999.  Thus  any  hull  number 
between  1 and  9999  was  included.  Group  2 consisted  of  one  ship  and  was 
defined  as  CGN  35  through  CGN  35.  For  each  ship  on  the  SWBS  File,  the 
program,  determines  to  which  group,  or  groups,  the  ship  belongs.  The 
program  PREWBS  then  creates  ana  sorts  a new  file  which  has  as  a header 
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Figure  6.3-1  - PFPWBS  Hierarchical  Diagram 


TABLE  0.3-1  - REPORT  OPTIONS  KIR  RFPWBS 


REPORT  NAME 


INCLUSIVE  CRITERIA 


work  in  Navy  Yards 

East  Coast  Navy  Yards 

West  Coast  Navv  Yards 

Work  in  rr  ivate  Yards 

Fast  Coast  Pr ivate 

West  Coast  Pr  ivate 

Conversion  Work 
Active  Ship  Work 


Reserve  Ship  Work 
NAP  Work 
Repair  Work 
Alteration  Work 


All  the  work  to  be  done  in  Navy 
yaras 

All  the  work  to  be  none  in  east 
coast  Navv  yards 

All  the  work  to  be  none  in  west 
coast  Navy  yards 

All  the  work  to  be  done  in  private 
yards 

Al 1 the  work  to  be  done  in  east 
coast  pr ivate  yards 

All  the  work  to  be  none  in  west 
coast  private  yards 

The  type  of  work  is  Conversion 

All  the  work  performed  on  active 
ships  (i.e.,  type  of  work  is 
not  NET  or  MAP ) 

All  work  performed  on  Naval  Reserve 
Training  (NRT)  ships 

Type  of  work  is  Military  Assistance 
P rtm ram  (MAP) 

All  work  attributed  to  ship/ordnance 
repairs 

All  work  attributed  to  ship  ordnance 
al terat ions 
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Main  Program 


The  function  of  the  main  program  is  to  proauce  data  for  summary 
reports  of  projected  workload  by  Ship  work  Breakoown  Structure  (SWBS)  for 
direct  labor  manaays,  direct  labor  costs,  and  material  costs.  Reports  may 
be  generated  by  ownership,  coast,  active  shipwork.  Conversion,  Reserve 
shipwork,  Military  Assistance  Program.  (MAP)  work,  ana  repair  and  altera- 
tion work.  All  work  in  any  given  shipyard  may  be  reported  on  by  ship 
group  and  by  year.  The  program,  uses  as  inout  the  SWBS  (by  Croups)  File, 
Manday  Pate  cards,  and  Group  Option  cards. 

Subroutine  BANNER 

This  subroutine  writes  a report  title  paqe  with  the  words  "SWBS 
RFPOPTS" . The  date  ana  identifying  information  appear  in  the  upper  left 
corner . 

Subroutine  DOLLAR 

Subroutine  DOLLAR  uses  the  year  ana  yard  from  each  record  on  the 

SWBS  File  and  determines  the  appropriate  manday  rate.  Since  no  rates  have 
been  stored  for  the  private  yards,  the  value  of  $150  per  manaay  is  used. 

If  no  manday  rates  are  stored  for  a particular  year  and  yard,  an  error 

message  is  written  ana  that  record  is  omitted. 

Subroutine  GRPID 

This  subroutine  writes  the  group  identification  page  which  precedes 
all  reports  (for  the  group).  It  gives  the  lower  and  upper  limits  of 
all  the  ship-type/hul 1-number  range  combinations  in  the  group. 

Subroutine  HEADER 

Subroutine  H FADER  writes  report  identification  information  in  the 

upper  left  corner  of  each  page  ana  the  page  number  in  the  upper  right 
corner.  SWBS  reports  are  identified  by  the  number  "63"  followed  by  the 
date  and  the  identifying  information  input  from  the  header  card. 
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Subroutine  IERROR 


The  function  of  subroutine  I ERROR  is  to  generate  error  messaqes 
inuicating  lack  of  data  for  specific  conditions.  Table  6.3-2  lists  the 
conditions  which  cause  error  messaqes  to  be  printed  and  the  message  that 
is  written  on  unit  8.  A group  number  of  zero  will  cause  the  program  to 

StOD. 

Subroutine  RATI' IP 

The  purpose  of  subroutine  RATEID  is  to  write  a summary  page  of 
labor  rates  which  are  expressed  in  dollars  per  manday.  The  rates  are 
tabulated  tor  the  required  years  for  each  shipyard.  This  subroutine 
also  gives  the  material  factor  as  a percent  of  total  labor  cost. 

Subroutine  REPORT 

Subroutine  REPORT  uses  the  group  number,  the  options,  and  the 
arrays  of  oata  collected  by  other  subroutines  and  extracts  the  data 
elements  by  SWBS  tor  individual  reports.  Any  "other"  shipwork  (UNOW)  data 
are  tabulated  as  individual  items  unoer  a heading  of  "OTHFR".  Material 
costs  are  calculated  as  a fx?rcent  of  total  direct  labor  cost.  It  a report 
has  been  requested  but  no  data  are  found,  subroutine  I ERROR  is  called  anu 
an  error  rressaoe  is  written. 

Suor 'out  ini-  SKPCRP 

Subroutine  SKPCRP  is  used  to  skip  all  records  on  the  SWBS  (by  Groups) 
Rile  relating  to  a given  ship  group.  A negative  value  tor  the  fiscal 
year  signals  the  header  record  tor  a new  group.  When  a negative  value  is 
encountered,  the  tile  is  backspaced  ana  is  positioned  at  the  beginning  ot 
the  next  group. 
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Subroutine  SUM 

This  subroutine  sums  the  manday  values  and  labor  costs  and  stores 
them  in  arrays  for  scheduled  shipwork  and  for  "other"  shipwork  (UNOW). 
Unless  repair  and  alteration  data  are  to  be  reported  on  separately, 
their  values  are  combined.  In  the  arrays  for  scheduled  work,  the  first 
subscript  refers  to  the  option  or  to  the  yard,  the  second  subscript 
refers  to  the  year,  and  the  third  subscript  refers  to  the  manaay  values  or 
to  the  labor  costs.  In  the  UNOW  arrays,  the  first  subscript  refers  to  the 
option  or  yard,  the  second  subscript  refers  to  the  year,  ana  the  third 
subscript  refers  to  (1)  total  other  manday  work  ana  (2)  total  other  labor 
costs. 

Subroutine  TITLE 

This  subroutine  is  called  by  subroutine  REPORT  with  a flag  designat- 
ing the  type  of  report  headings  to  be  written.  If  there  is  UNOW  work, 
an  extra  column  for  "other"  work  must  be  included. 


| 
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TABLE  6.3-2  - ERROR  MESSAGES  GENERATED  BY  REPWBS 


Flag  Option  Condition 


Group  number  is  zero  or  blank 


End  of  file  mark  encountered 
in  reading  SWBS  (By  Groups) 
File 


No  manday  rates  found  for  the 
reouired  vear 


No  manday  rates  found  for  the 
required  yard 


No  data  for  east  coast  Navy 
shipyard  work  for  the  required 
year  ana  group 

No  data  for  west  coast  Navy 
shipyard  work  for  the  required 
year  and  group  number 


No  data  for  private  yarn  work 
for  the  required  year  ana 
group  number 


No  data  for  east  coast  private 
yard  work  for  the  required 
year  and  group  number 


No  data  for  west  coast  private 
yard  work  for  the  required 
year  and  group  number 


No  data  for  Conversion  work 
done  for  the  required  year 
and  group  number 


No  data  for  Active  ship  work 
(all  work  except  NFT  and 
MAP)  for  the  required  year 
and  group  number 


No  data  for  Naval  Reserve 
Training  work  for  the  re- 
quired year  and  group 
number 
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Printed  Message 


GROUP  NUMBER  = 0,  USE 
OTHFR  VERSION  OF  PRO- 
GRAM 


END  OF  FILE  ENCOUNTERED 


NO  MANDAY  PATES  FOR 
19xx 


NO  MANDAY  RATF  FOR  xxxx 


No  data  for  Navy  shipyard  work 
for  the  required  year  and  group 


NO  NAVY  YARD  WORK  FOR 
19xx  FOR  GROUP  xx 


NO  EAST  COAST  NAVY  YARD 
WORK  FOR  I9xx  FOR  GROUP  xx 


NO  WEST  COAST  NAV\'  YARD 
WORK  FOR  19 xx  FOR  GROUP  xx 


NO  PRIVATE  YARD  WORK  FOR 
1 ^ xx  FOR  GROUP  xx 


NO  FAST  COAST  PRIVATE 
YARD  WORK  FOR  19xx  FOR 
GROUP  xx 


NO  WEST  COAST  PRIVATE 
YARD  WORK  FOR  19xx  FOR 
CROUP  xx 


NO  CONVERSION  WORK  FOR 
19 xx  TOR  GROUP  xx 


NO  ACTIVE  SHIP  WORK  FOR 
19 xx  FOR  GROUP  xx 


NO  RESERVE  WORK  FOR  19xx 
FOR  GROUP  XX 


ERROR  MESSAGES  (Continued) 


Flag  Option  Condition 


5 10  No  data  for  Military  Assist- 

ance Program  work  for  the  re- 
quired year  and  group  number 

11  No  data  for  any  of  the  ships 

in  the  required  group 

6 - No  data  for  a specified  yard 

for  the  requirea  group 


Printea  Message 

NO  MAP  WORK  FOR  19xx 
FOR  GROUP  xx 

NO  DATA  FOP  GROUP  xx 

NO  TATA  FOR  xxxxx 
FOR  GROUP  xx 
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6.3.2  RUN  SET-UP 

The  following  set-up  is  useo  to  run  the  REPWBS  program  on  the 
IBM  300/370  computer: 


//NVSNBS  JOB  IXXXXXXXXXX.XXXXX) , USER, CL aSS*C • M be = ( , 1 5 » .HSGLEVFL- 1 
//JOBtIB  DO  OSN=NVS31. DEPOT. LIB, DISP=SMR 
It  EXEC  PGN-REPBBS 
//GO. F T 05F  001  OD  • 


REPWBS  card  inputs  (unit  5) 


//GO.FT06F001 
//GO.FT0»F001 
// GO.FTIPFOOl 


DO  SYSOJT=a 

OD  sy  sou  t= a 

on  OSN^NVSdl .SMBS. GROUPS. OaTa ,01 SP=SHR 


(SMBS  REPORTS) 
•ERROR  MESSaGES) 
•INPUT  FILE) 


I 


t 


J 


36 


6 3.3  INPUTS 


Card  inputs  are  made  using  unit  5.  Section  6. 3. 3.1  shows  the 
format  for  the  input  cards. 

Unit  5-  Card  inputs  which:  (1)  give  identifyim  report 
information  and  aesired  years,  (2)  give  mandav 
rates,  (3)  select  group  numbers  and  report 
options,  (4)  reauest  yards  to  be  reported 
on. 

The  following  additional  unit  is  usea  to  input  information  from 
a oisk  file  previously  created  by  the  program  PRFWBS : 

Unit  12  - SWBS  (by  Groups)  Data  File. 

The  format  for  this  file  is  given  in  Section  6. 3. 3. 2. 


6. 3. 3.1  Unit  5 - Card  Inputs 


Header  Card.  This 
is: 

Variable  Name 
DATE! 1-3) 
COMENTll-5) 

IYEAFd-5) 

I MAT 


3 must  appear  as  the  tirst 

input  caro. 

Its  format 

Description 

Field 

Format 

Date  (mo/dy/yr) 

1-12 

3A4 

Report  identification 
information 

15-34 

5A4 

Array  of  years  to  be 
reported  on 

40-53 

512 

Percent  of  direct  labor 
costs  for  material 

72-74 

13 

Wanday  Rate  Cards.  The  Manday  Pate  Deck  cossists  of  one  card 
shipyard  diving  manday  rates  for  the  fiscal  years  to  be  reported  oh. 
A Manday  Rate  Terminator  Card  follows  the  final  Manday  Rate  Card. 


Mandav  Rate  Card 

Format 

Description 

Yard  name 

Field 

Variable  Name 

I YARD 

1-5 

A5 

RATE ( 1-5) 

Array  of  manday  rates 
for  five  fiscal  years 

b-40 

5{  IX , F6 . 2 

Manday  Pate  Terminator  Card 


Descript  ion 

Field 

Format 

Variable  Name 

A4 

LAST 

Terminator;  contains  the 
characters  "LAST" 

1-4 
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138:  HE 


V 


1 


I 


1 

I 

I 


E 


Group  Option  Cards.  The  Group  Option  Deck  describes  the  various  report 
options.  There  are  two  cards  for  each  required  group:  a type  A card 
which  describes  the  report  options,  and  a type  B card  which  designates  the 
yards  to  be  reported  on.  The  Group  Option  Deck  is  terminated  with  a 
negative  group  number. 

Type  A Group  Option  Card 


Variable  Name  Description  Fielo  Format 


IGRP 

Group  number 

1-3 

13 

To  Request  Reports  on: 

Punch 

Characters 

. * 

ZNAVWK 

Work  in  Navy  Yards 

"NAV" 

5-7 

A3 

ZNAVF 

East  Coast  Navy  Yards 

"NF" 

9-10 

A2 

ZNAVW 

West  Coast  Navy  Yards 

"NW" 

12-13 

A2 

ZPRI 

Work  in  Private  Yards 

"PRI" 

15-17 

A3 

ZPRIF 

Fast  Coast  Private 

"PE" 

19-20 

A 2 

ZPRIW 

West  Coast  Private 

"PW" 

22-23 

A2 

ZCON 

Conversion  work 

"C" 

25 

Al 

ZACT 

Active  Ship  Work 

"ACT" 

29-31 

A3 

ZRES 

Reserve  Ship  Work 

"RES" 

33-35 

A3 

ZZMAP 

Map  Work 

"MAP" 

37-39 

A3 

ZREP 

Repair  work 

"REP" 

41-43 

A3 

ZALT 

Alteration  Work 

"ALT" 

4 5-47 

A3 

‘Variable 

otherwise 

contains  the  noted  characters  if 
those  fields  are  left  blank. 

that 

report  is 

requestea; 

Type  B Group  Option 

Cara 

Variable  Name 

Description 

Field 

Format 

IYDSELI 1-13) 

Array  of  yards  to  be 
reported  on 

1-78 

13( A5,1X) 

rc 
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I 


} 


! 


( 


.~x  x: 


6. 3. 3. 2 Unit  12  - SWBS  (by  Groups)  Data  File 

The  program  PREWBS  sorts  the  SWBS  File,  created  oy  program  XPLODF, 
by  ship  groupings.  A Group  Definition  Record  precedes  the  ship  avail- 
ability data  for  those  ships  in  the  group.  Fach  recora  contains  direct 
labor  repair  mandays  and  direct  labor  alteration  mandays  by  SWBS. 

The  SWBS  (by  Groups)  File  is  sorted  in  ascending  order  by  the  follow- 
ing parameters: 

Group  number 
Fiscal  year 

Since  this  is  a binary  file,  the  format  presented  is  given  only 
as  a guide  to  inaicate  the  size  of  the  variables. 

Group  Definition  Records.  The  format  of  each  Group  Definition  Recora  on 
the  SWES  (by  Groups)  File  is  as  follows: 


Variable  Name 

Description 

Position 

Format 

DUM 

rouble  precision  dummy 
variable 

1 

(Ad) 

IDUM1 

Dummy  variable 

2 

(A3) 

DUMl 

Double  precision  dummy 
variable 

3 

(Ab) 

IGROUP 

Group  number 

4 

(13) 

IDUM2 

Variable  contains  zero 

5 

(12) 

SHIP ( 1 ,1 ) 

Lower  bound  of  first  ship 
type  in  a group 

b 

( A4 ) 

I HULL (1,1 ) 

Lower  bound  of  first  hull 
number  in  a group 

7 

( A4 ) 

SHIP(1 ,2) 

Upper  bound  of  first  ship 
type  in  a group 

ti 

(A4 ) 

IHULL( 1,2) 

Upper  bound  of  first  hull 
number  in  a group 

9 

( A4 ) 

SHIP(2,1) 

Lower  bound  of  second  ship 
type  in  a group 

10 

(A4) 
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"ISE ' 


Group  Definition  Records.  (Continued) 


• 

Variable  Name 

Description 

Position 

Format 

IHULL( 2,1) 

(4 

Lower  bound  of  second  hull 

11 

(A4) 

i 

i ; 

number  in  a group 

• 

- 

SHIP(6,2) 

Upper  bound  of  sixth  ship 
type  in  a group 

28 

(A4) 

IHULL( 6,2) 

Upper  bouna  of  sixth  hull 
number  in  a group 

29 

( A4 ) 

FILLER(l-3) 

Dummy  array 

30-33 

(3A4) 

SWBS  Record.  Each 

SWBS  Record  corresponds  to  a 

DMAF  Record. 

Any  DMAF 

record  describing  ships  specified  by  the  Group  Definition 

included.  The  format  of  each  SWBS  Record  is  as  follows: 

Record  are 

Variable  Name 

Description 

Position 

Format 

I SHULL, 

Ship-type/hull-number 

1 

(A8 ) 

ITYPWK 

Type  work 

2 

(A3) 

IYD 

Yard 

3 

(A5) 

IGROUP 

Group  number 

4 

(13) 

IFYP 

Fiscal  year  (this  record) 

S 

(12) 

OWN 

Yard  ownership  indicator 

6 

(Al) 

COAST 

Coast 

7 

(Al) 

IPERD 

Period  (this  record) 

8 

(ID 

ICONT 

Continuation  indicator 

9 

(Al) 

ISTRT 

Availability  start  date 
(mo/dy/yr ) 

10 

(16) 

IEND 

' 

Availability  end  date 
(mo/dy/yr) 

11 

(16) 

ISPEC 

Specialization  category 

12 

(A3) 

WVALR(l-9) 

Total  airect  repair  man- 
aays  for  SWBS 

13-21 

(9F10.2) 
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WVALA( 1-9)  Total  direct  alteration  22-30  (9F10.2) 

mandays  for  SWBS 

MATREP(10,20)  Fraction  of  total  direct  31  (FlO.6) 

repait  mandays  required 
for  "other  direct" 

MATALT (10,20)  Fraction  of  total  direct  32  (F10.6) 

alteration  mandays  re- 
quired for  "other  direct" 


6.3.4  OUTPUT 


The  following  units  are  used  by  REPWBS  for  generating  hard-copy 
output: 

Unit  6 - Summary  SWBS  reports. 

Unit  8 - Error  messages. 

Section  6.3.7  shows  a sample  of  these  outputs. 


- ppp 


TT*"" 


"r~ 


aa 


b . 3 . 5 PROGRAM  LISTING. 


PROGHAMM(I)  JEAN  ST  LAURENT  - DTNSNOC 
WRITTEN  HAT  19Tb 


•program  re pwbst input .output ,t  apes  = input ,t  ape  b -output .tapes . tape i?) 

RE  P W 

CODE  1863  RE  P W 

REPM 
RE  PH 
REPN 
REPM 
KtP/i 
REPM 


REPMBS  IS  A REPORT  GENERATOR  FOR  TOTAL  DIRECT  LABOR  MANDATS 
ANO  MATERIAL  DOLLARS  BT  SMBS  FOR  SHIP  GROUPINGS, 

BROKEN  DOMN  BT  FISCAL  TFAR 

SHIP  GROUPINGS  I I GRP  T AND  TEAR  (ITEART  ARE  INPUT  VALUES 


10 
20 
30 
<•0 
50 
60 
TO 
8 0 
90 


c 

1 HE  PROGRAM  PREMBS  IS 

A PREPROCESSOR 

FOR  REPMBS 

MHICH 

SORTS 

REPM 

100 

c 

IMF  SMBS  DATA  FILE 

BY  SHIP 

GROUPINGS 

REPM 

113 

c 

REPM 

120 

c 

IN  AOOITION  IO  A GROUP  TOTAL 

RE  POR  T 

• THE  FOLLOMING 

OPTIONS 

REPM 

130 

c 

ARE  AVAILABLE 

REPM 

140 

c 

NAVY  MORK  - 

INPUT 

AS 

NAV 

- USE  O 

AS 

I OP  T 

= 

I 

REPM 

iso 

c 

NAVY  EAST  - 

INPUT 

AS 

NE 

- USED 

AS 

I OP  T 

= 

2 

REPM 

160 

c 

NAVY  REST  - 

INPUT 

AS 

NM 

- USE  O 

AS 

I OPT 

s 

3 

REPM 

170 

c 

PRIVATE  WORK  - 

INPUT 

AS 

PR  I 

- USE  0 

AS 

I OPT 

= 

4 

RE  PM 

iao 

c 

PRIVATE  EAST  - 

INPUT 

AS 

PE 

- USE  O 

AS 

I OP  T 

= 

5 

REPM 

190 

c 

PRIVATE  ME  ST  - 

INPUT 

AS 

PM 

- USE O 

AS 

I OPT 

= 

b 

REPM 

?00 

c 

CONVERSION  WORK 

- INPUT 

AS 

CON 

- USEO 

AS 

I OP  T 

= 

7 

REPM 

210 

c 

ACTIVE  SHIPS  - 

INPUT 

AS 

ACT 

- JSEO 

AS 

I OP  T 

S 

REPM 

220 

c 

TACTIVE  MORK 

IS  ALL  MORK  EXCEPT  NRT 

ANO  MAPI 

REPM3225 

c 

RESERVE  SHIPS  - 

INPUT 

AS 

RES 

- USED 

AS 

I OPT 

= 

9 

REPM 

23  J 

c 

HAP  MORK  - 

INPUT 

AS 

HAP 

- JSEO 

AS 

I OP  T 

= 

10 

REPM 

243 

c 

REPAIR  MORK  - 

INPUT 

AS 

REP 

- USEO 

AS 

I OPT 

= 

1 1 

RE  PM 

250 

c 

ALT  MORK  - 

INPUT 

AS 

ALT 

- USED 

AS 

I OPT 

1? 

REPM 

2b0 

ALSO,  SUMMARIES  MAT  BE  MADE  BT  TARO 

UP  TO  13  DIFFERENT  TARDS  MAT  BE  SELECTED 
THEY  ARE  INPUT  IN  THE  ITOSFL  ARRAT 

TAPE  ASSIGNMENTS 


TAPES  - INPUT  - CAROS 

TAPEb  - OUTPUT 

TAPES  - OUTPUT  - ERRORS,  ONLT 

T APE 1 2 - INPUT  OF  SMBS  OATA  FILE  SORTED  BT  PREMBS 


REAL'S  ITDSEL,  ITO,  LAST,  ISHULL,  IYARO,  OUM1 , IOBL.  IBLANK 
REAL  ITTPMK,  IUNOM 

COMMON/ 1 DENT /COMENT 15),  DATE I3T 
COMMON/ IOATA/  SHIPtb,2>,  IHULLIb,2! 

COMMON  /MORS/  ARRAT 1 1 1 3, 5, 1 SI . ARR AT 2 1 1 3, 5, 1 8 T , ARR ATD I 1 3 , 5 , 1 S ) , 

1 ARRATMI 1 3, 5, 1 SI  , UARR A Y ( 1 3 , 5 , 21  , UY A R D ( 1 3 , 5 , 2 » 

COMMON  /OTHER/  IFLAGI15.5I,  I FL AG& 1 1 5 ,5 1 , I UNOS 1 15, 51  .1 UNOSS ( 1 5,5 1 
COMMON  /MISC/  IVEART5),  RATE (15,5) 

COMMON  /NPUT / IYOSELI13I,  IYAR0T15T 
DIMENSION  IOPTI14I,  FILLER! 3T , VALUES ! 1 SI 

OATA  ZN/1MN/ 

DATA  7NAVY/3HNAV/ 

DATA  FAST/1ME/ 


REPM  2/0 
REPM  280 
REPM  290 
REPM  300 
REPM  310 
REPM  320 
REPM  330 
REPM  34 0 
REPM  350 
REPM  3b  0 
REPM  3/0 
REPM  380 
REPM  390 

REP 
REPM  G10 
REPM  420 
REPM  430 
REPM  440 
REPM  450 
REPM  4b  0 
REPM  4/0 
REPM  480 
REPM  490 
REPM  500 
REPM  510 
REPM  520 
REPM  530 


400 

405 
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o o 


DATA  NEST/1MN/ 

OAT*  ZNE/ZMNE/ 

OATA  ZNN/ZHNN/ 

DATA  PRIY/JNPRI/ 

OATA  PRI/IMP/ 

OATA  ZPE/ZMPE / 

OATA  ZPN/ZHPN/ 

OATA  CON/3MCON/ 

OATA  C0NV/3NC  / 

OATA  ACT/3MAC  T / 

OATA  RES/3HRES/ 

OATA  ZNRT/3MNRT/ 

OATA  ZNAP/3MNAPS 
OATA  REP/3HREPS 
OAT*  ALT/3HAL  TZ 
OAT*  IBLANK/AH  / 

OATA  LAST/5MLAST  / 

OATA  I UNON/3MON  / 

INITIALIZE  ARRAYS 
DO  15  J » 1,13 
DO  10  I • 1,5 
IYEARII)  * I 
lYAROtJI  * I BLANK 
RATEIJ.lt  > 0 
10  CONTINUE 
15  CONTINUE 

I ONCE  • 0 
C 

C RE  AO  NEAOER  CARO 

RE  AO  15, 1001  DATE.  1 COHENT 1 1 1 , 1»1 , 51 , 1 1 YE A R < 1 1 . 1 < 1 . 5 I , I HAT 

103  FORMAT! JA4,?X,  5*4, 5*.  5(1?, 1X1,  I 7X,  131 

C 

C READ  LABOR  RATES  FOR  EACH  YARD 

00  ?0  I > 1,15 

READ  (5,1011  lYAROdl,  (RATE  (I,JI  , J>1,5I 
101  F0RNAMA5,  5(IX,F6.ZII 
IT  * I 

IF ( IY ARO (It  ,EQ.  LASTI  CO  TO  ?5 
?0  CONTINUE 
NOVARO  > II 
CO  TO  27 

?5  NOYARD  * II  - 1 
?Z  CALL  HEAOERllI 
CALL  BANNER 

C 

C DETERMINE  NUMBER  OF  YEARS  TO  BE  PROCESSEO 

DO  30  I > 1,5 

II  * I 

IFdYEARdl.EQ.Ot  CO  TO  35 
TO  CONTINUE 
NVEAR  • II 
CO  TO  38 

15  NYEAR  * II  - 1 
C 

C NRITE  SUNNARY  PACE  OF  NANOAV  RATES 

38  CALL  RATE  IDINOYARD,  NYEAR,  I NAT  I 
CO  DO  55  I « 1.15 
DO  43  J « 1,5 

iflacii.ji  • 0 


REPN  540 
REPN  550 
REPN  560 
REPN  5Z0 
REPN  580 
REPN  590 
REPN  600 
REPN  610 
REPN  6?0 
REPN  630 
REPN  640 
REPN  650 
REPN  660 
REPN  6Z0 
REPN  680 
REPN  690 
REPN  ZOO 
REPN  730 
REPN  Z50 
REPN  Z60 
REPN  ZZO 
REPN  780 
REPN  793 
REPN  800 
REPN  810 
REPN  SZO 
REPN  830 
REPN  840 
REPN  850 
REPN  860 
REPN  SZO 
REPN  880 
REPN  890 
REPN  900 
REPN  910 
REPN  9?0 
REPN  930 
REPN  940 
REPN  950 
REPN  960 
REPN  970 
REPN  980 
REPN  990 
REPN1000 
REPN1010 
REPN10Z0 
REPN1030 
REPN1040 
REPN1050 
REPN1060 
REPN1070 
REPN1080 
REPN1090 
REPN1 100 
REPN1 110 
REPM1 1Z0 
REPN1 130 
REPN1 140 
REPN1150 
REPN1 160 


95 


IFIAGGII.JI  * 0 

% 

REPW1  170 

IUNOSII,J>  « 0 

REPHl  180 

I UNOSS ( 1 , J I * 0 

RE  PW1 1R3 

1 

43 

CONT I NUE 

RE  PWt 20 0 

4S 

CONTINUE 

RIPM1/I0 

] 

DO  40  J * 1, l 3 

REPH1//0 

j 

lYDSEMJI  * IBIANK 

REPH1/30 

s 

48 

CONT I NUE 

REPW1/40 

J C 

REPH1/S0 

c 

SFT  FLAG  FO«  UNOS  WORK 

K t KHl/bll 

III  * 0 

RFPH1//0 

I F V T R A = o 

RF  PW1 ? 80 

c 

RFPNI/R0 

c 

READ  1ST  GROUP  CARO  WITH  OPTIONS 

RE PMl 300 

REAOIS.IO?)  I GUP  ■ l NAVHx  . /NAVE,  ZNAVH,  ? t*  ■»  I . ZPRIE,  ZPRIH,  ?CON. 

RF  PWI 31 J 

1 /ACT.  /RES.  //HAP,  ZRFP.  /All 

Rt  PWI  3/0 

J 

13? 

FORHATII3,  IX,  A3,  ZIIX.A/I,  11.  A3,  ?lt(,A?l,  bltX,A3>) 

Rt  PW133Q 

IF  ( IGRP.lT.il  SIOP 

RF  PHI  3b  0 

1 

IF ( IGRP.FQ.OI  CALL  I ERROR  I l , I OUHH Y , I DUN 3. 1 0 DNS, I DHL  1 

Kt  PWI 3Sfl 

C 

Rt  PWI 3b 0 

C 

READ  /NO  GROUP  CARO  WITH  YARDS 

RE  PWI 37  0 

1 

RFAl)IS,103>  1 IYDSFl  II)  , I M , 1 3) 

RF  PW1380 

i 

103 

FORMAT  113  1 AS,  1X1  1 

REPW1  3R0 

i c 

REPHlbJO 

c 

SI  I FLAG  FOR  VARIOUS  OPTIONS 

Rt  PW141 0 

oo  so  i s i , m 

RF  P Ml  4/ 0 

i opt  in  * o 

Rt  PW1430 

so 

CONT I NUE 

RE  PHI bbO 

IF | /NAVWK .EU.  /NAVY!  I OP  Till  * 1 

Rt  PW14S0 

IF l/NAWE.E Q. /NEI  IOPtI/1  « ? 

RF  PMlWbO 

IF t/NAVW.FQ. /NWl  I OP  T € 3 » * 3 

Rt  PWI 4 7 0 

IF  l/PRI.EQ.PRIVI  I OP  T TGI  = b 

RE  PHI b8  0 

IF  T/PRIE  .FQ. /PE)  IOPUSI  = S 

Rt  PW1490 

IF  I/PRIW.F Q. 7PW>  IOPTIb)  = b 

RF  PW1S00 

IF l/CON. FQ. CONI  I0PTI7I  = 7 

Rt  P Wt  S l J 

if  i/act .eq. actt  ioptibi  = a 

RF  PWlS/0 

IF  | 7Rf S.EU.RFS)  I OP  T 1 R I R 

RIPH1S30 

IF CZ/MAP.F Q. /MAPI  I OPT (101  * 10 

REPHlSbO 

IF  (/Hi  P.EQ.RFPI  I OP  T 1 1 1 1 * ll 

RF PW1SS0 

IFI7ALT.EU.ALT)  I OP  T 1 l / 1 - 1? 

REPHlSbO 

c 

RE  PMl S 7 0 

c 

l)E  If  RHINE  NJNFFR  OF  YARDS  TO  Rt  PROCESSED 

RE  PM 1 S 8 0 

00  6 0 I * 1,13 

RE  P Ml  SR 0 

n * i 

REPMlbOO 

IF  (IYOSEl  t II  ,E3.  IBl  ANKI  (.0  UlbS 

RE  P Ml  b 1 0 

bJ 

CONT I NUF 

RF  PWlb/3 

NYOS  = II 

RE  PMl 63  0 

GO  TO  70 

RE PMl 640 

bS 

NYOS  * II  * 1 

RE  PMlbSO 

c 

REPMlbbO 

c 

INIT IALtfF  0 A T A ARRAYS 

RE  PMl b 7 0 

/ 0 

DO  as  I * 1,13 

RF  PM1680 

00  *3  J * l,S 

RF  PwlbRO 

00  7S  K * 1,18 

Rt  PMl  70  0 

00  72  L = 1,2 

Rt  PMl  710 

\\ 

ARRAY l ( I , J.XI  * 0.0 

Rt  PM  17/0 

ARRAY?!!,  J.X)  » 0.3 

Rt  PMl 730 

ARRAY 01 I , J , R I * 0.0 

Rt  PMl  740 

ARRAYHII , J.XI  * 0.0 

Rt  PWI 7S J 

UARRA Yl I, J,LI  * 0.0 

RE  PWI 7b 0 

1 

v)t> 

■kc?  

J§ 

oo  o o oooo  ooo  o o o o oo  ooo  o o o o 


^ - ■■■■■HR!! 


5 


h 


uyaroii.j.li  « a. a 

22  CON! I NUF 
24  CONTINUE 
»3  CONTINUE 
US  CONTINUF 

REED  HEADER  RECORD  OF  FILE 

>•40  REA0I12I  0UN1,  I0UN1,  DUNE , IGROUP,  I DUN2 , t I SHI P 1 1 , J ) , IHULLtl.J) 
•••*1  J-1.21.  1 = 1.61.  tFILLCRtK) ,K=1.3) 

40  RE  »0  ( 1Z.ENO-I.ao  t 0UM1, IOUN1 ,0UM1, IGROUP, I0UN2, f ISHIPt I , J) , 
t IMUll  ( I , Jt  . J-l  ,21  . I-1.61,  IFILLERttO.F-l.JI 

•••♦•IF (EOF  1121 *NE • 0 ) GO  TO  GOO 

CHECK  ON  NATCH  OF  GROUP  NUMBER 
IFIIGRP.EQ. IGROUP)  GO  TO  44 
CALL  SKPGRPIIONCEI 
GO  TO  40 

HRITF  SHIP  GROUP  IDENTIFICATION  PAGE 
4S  CALL  GRPI 01 IGROUP! 


READ  DATA  RECORD 

•200  REA0I12)  ISNULL,  ITYPNK,  IYO,  IGROUP,  IFFR,  OWN.  COAST,  IPERO, 
••••1  ICON!,  ISTRT • IENO,  ISPEC.  <VAL UES C 1 1 , I • 1, 1AI , NATREP.NAT ALT 
200  REAO 1 12.ENO-GOO  I ISMULL,  ITYPNK,  IYO,  IGROUP,  IFYR,  OMN,  COAST. 
1 IPERD,  ICONT,  ISTRT,  IENO,  ISPEC.  I VALUES  1 1 1 , 1*1, 1 A I , NATREP , 

I NATALY 

•••••IFIEOF112I  .NE.O)  GO  TO  GAO 


CHECK  FOR  ENO  OF 
IF (IFYR.LT .0)  GO  TO 
REVERSE  TEST  FOR 
••••  IFtIFYR.LE.SI  GO  TO 


THIS  SHIP  GROUPING 
160 
160 
160 


CHECK  ON  YEAR 
OO  20 S I « l.NYEAR 
JJ  * I 

IFfIFYR.EQ.IYEARtI) 1 GO  TO  20A 
204  CONTINUE 
GO  TO  200 

DETERMINE  CORRECT  NANOAr  RATE  FOR  YARD  AND  YEAR 
>211  CALL  DOLL  AR 1 1 YO • IFYR , OMN, V OR ATE  I , RE  TURNS  12  011 
200  CALL  OOLLARIIVO, IFYR, OMN, VORATE, *2011 

CHECK  VARIOUS  OPTIONS 
DO  111  I « 1,12 

II  • I OPT  til  » 1 

GO  TO  1110,  211,220,  230.260.243,261.220.211,241.  101,216,2141  , II 
211  IFtOMN.NE.2N)  GO  TO  110 
214  CONTINUE 

IF IITYPMK.NE, IUNOM)  CO  TO  211 
lUNOStl.JJI  • 1 

III  « 1 
GO  TO  214 

211  IFLAC 1 1 , J J)  • 1 

C STORE  VALUES  IN  AN  ARRAY  NITH  SUBSCRIPT  FOR  OPTION  AND  YEAR 

214  CALL  SUNtll, VALUES, IVO.IFYR, VORATE, III, IERTRAI 
III  • 1 
GO  TO  111 


REPN1220 
REPM1210 
REPM1240 
REPM1100 
REPM1I1 0 
REPM1A20 
REPM1110 
,••>>1160 
••••1140 
••*•1160 
••••1120 
*>>>1110 
REPM1140 
REPM1400 
REPM1410 
REPM1420 
REPM1411 
REPN14G0 
REPM1440 
REPM1460 
REPM142  0 
REPM1410 
••••1441 
••••2000 
••••2010 
••••2020 
••••2010 
•*••2060 
REPM2  341 
REPM2060 
REPN2020 

REPM2020 

REPM2010 

REPN2040 

REPN2100 

REPN2110 

REPN2120 

REPM2110 

REPN21G0 

REPN2161 

••••2160 

••••2126 

REPH2110 

REPN214I 

REPM2200 

REPN2211 

REPM2220 

REPN2211 

REPM22G0 

REPM22G6 

REPM2241 

REPN2260 

REPN2221 

REPN2210 

REPM2241 

REPN2100 

REPN2111 

REPM2120 

REPM213I 


0 7 


. - 1-  ■ ■ 


n o 


ZZi 

IMOKN.eQ.ZN  .AND.  COAST  • EQ  • C AS  T t GO  TO  Zlb 

Rt PKZ3A0 

GO  TO  330 

Rf  P K?  JS  0 

ZS3 

IFEOKN.EQ./N  .AND.  COAST .EQ.MtST > GO  1 3 ?iS 

RE  PK? 3b 0 

GO  TO  3J0 

«f PK*J7 0 

7*3 

IF  (OKN.fQ.PRI)  GO  TO  Z l S 

Rf  PK*  380 

GO  TO  330 

RE  PK*  390 

7*3 

IF  1 OKN.fQ.PRI  .ANO.  CO AS T . E Q . E AS T 1 GO  TO  S 

Ri  PK*  A 0 0 

GO  TO  330 

Rf  PK*A10 

7b3 

If  I OKN.fQ.PRI  , ANO.  COAST. t Q.KE ST ! GO  TO  >!S 

Rf  PK?A*Q 

GO  TO  330 

RE  PK?A  3 0 

It) 

IF  HI  YPMK.f  Q.  CONVI  GO  TO  *18 

Rf PK?AA0 

GO  TO  330 

Rf  PK* AS 0 

zaa 

IF IITYPMK.NE./NRT  .AND.  I TVPKK.Nf ./MAPI  GO  TO  *1S 

Rf  PHt’AbO 

GO  TO  330 

RE  PK*A7  0 

?<»3 

IF C I T VPWK.f Q. ZNKT » GO  TO  *18 

RE  P W.*  A 8 0 

GO  TO  330 

RE  PK**A90 

.ns 

IFUTYPKK.fQ.ZNAPI  GO  TO  *18 

RE  P K * S 0 0 

J 10 

CONT I NUt 

Rf  P N* S 1 0 

RE  P K * S J 0 

CROUP  TOTAL 

Rf  PK*SJ  0 

IT  * t 

REPKZSaO 

IMl  T YPKK.NC.  I JNOKT  GO  TO  3JS 

Rf  P NZ NS  0 

I UNOS  1 1 3 • J Jl  • 1 

RI  PK?*60 

II  I * 1 

Rf  PK**S  7 0 

GO  TO  3 AO 

REPKZS80 

ns 

I F L AG  ( 1 3V JJI  « 1 

Rf PKZS90 

ISO 

CALL  SUN  III .VALUES, I YD, IF YR ,YOR ATE  .III,  IEXIRAI 

RI PKZbOO 

III  * 0 

RE  PKt  bl  0 

RE  PK*6*  0 

CHICK  ON  YARDS  THAT  HATCH 

RE  PK*  63 0 

00  JSS  J » 1,  NY  OS 

Rf PKZbAO 

IF  1 lYO.Nf . IYOSEL  1 J) t GO  TO  JSS 

Rf PK?6S0 

II  * 1 A 

RfPK*660 

IF (IT YPWK.NE . IJNOK)  GO  TO  JaS 

REPK.'bZO 

I UNOSS ( J, JJI  1 

Rf  P K* 68  0 

III  ■ 1 

RE  PM*69 0 

GO  TO  JSO 

RE PK?  700 

JSS 

I F L A GG ( J , JJI  * 1 

Rf  PH*  MO 

Rf  PK*  7*  0 

STORE  VAlUFS  IN  AN  ARRAY  MlTM  SUBSCRIPT  F OR  YARD  AND  Yf AR 

RE  P K ? f 3 0 

JSO 

CALL  SUN  II  I,  V ALUf  s,  IYO.  IFVR.YORATf  ,UItlf  XTRAI 

Rf  PK* ZAO 

III  « 0 

REPKZ7S0 

JSS 

CONT I NUf 

RE  PK*  76  0 

GO  TO  ?0J 

RE  PK?7 T 0 

Rf  PK*  78 0 

CALL  RfPORT  FOR  THIS  SNIP  GROUPING 

RE  PM*  7 90  ' 1 

JbO 

CALL  REPORT  <NYfAR,  I OPT  , I HAT  ,NYOS,  IFXTRA.IGRP) 

Rf  PKT 8 0 0 

BACKSPACE  1? 

Rf  PK*8 1 0 

GO  TO  AO 

Rf PKJ8*0 

RtPK?8 3 0 

ERROR  PATH  FOR  ENO  Of  F l LI 

RE  P K?  8 A 0 

soo 

CALL  REPORT (NYEAR,IOPT • I HAT ,NYOS, If XTRA.luRP) 

RE  PN/8AS 

CALL  IFRRORI?, IOUHHY , IOUN3, IOUNA. IORL 1 

RE  PK* 8S 0 

STOP 

Rf  PK*86 0 

ENO 

RI PKZ870 

on  n o ooo  o ooo 


subroutine  banner 

BANN 

10 

BANN 

20 

SUBROUTINE  TO  PRINT 

BANNER 

PAGE 

BANN 

30 

BANN 

<•0 

MRITE (6,1101 

BANN 

SO 

100 

FORMA  It////,  27*.  1 9I1HXI  //, 

BANN 

60 

1 

7 6X,  77H  XXXX  X X 

XXXX 

XXXX 

XXXX 

XXXXX 

XXXX 

XXX  BANN 

70 

2 

XXXX  XXXXX  XXXX/ 

BANN 

00 

3 

78*t  77HX  X X 

A A 

X 

X A 

X 

A X 

X 

XSANri 

90 

6 

XXXX/ 

BANN 

100 

S 

76X,  77NX  X X 

X X 

X 

X X 

X 

X X 

X 

XBANN 

110 

6 

XXXX/ 

BANN 

120 

J 

78X  f 77H  XXX  XXX 

XXXX 

XXX 

XXXX 

XXXX 

XXXX 

X 

XBANN 

130 

t 

XXXX  X XXX  / 

BANN 

140 

9 

28 X b 77H  X XXX 

X X 

X 

X X 

X 

X 

X 

XBANN 

150 

A 

XX  X X/ 

BANN 

160 

B 

26 X • 77H  X XX  XX 

X X 

X 

X X 

X 

X 

X 

XBANN 

170 

C 

XXX  X/ 

BANN 

100 

0 

76  X • 77HXXXK  X X 

XXXX 

XXXX 

X X 

XXXXX 

X 

XXX  BANN 

190 

E 

XXX  XXXX  // 

BANN 

200 

r 

7 7X  • 79 ( 1HX  t / 1 

BANN 

210 

R£  TURN 

BANN 

220 

END 

BANN 

230 

i 


c 


►SUBROUTINE  OOllARd  TO,  IFYH,  OWN,  TORATE)  , RETURNS  (NONE) 

* • • • 

10 

SUBROUTINE  OOUARdYO.IFYR.OHN,  TORAtE.M 

• ••• 

20 

OOLL 

30 

SUBROUTINE  TO  DETERMINE  correct  MANDAT 

RATE  FOR  TARO  AND  TEAR 

DOLL 

40 

OOLL 

50 

REAL’S  I Y O,  ITARO.  IOBL,  ITOSEL 

• • •• 

60 

OOLL 

70 

COMMON  /RISC/  IYEARIS),  RATE(15,6> 

OOLL 

81 

COMMON  /NPUT/  ITOSEL ( 131 , IYAR0(15I 

OOLL 

90 

DATA  PR  I / 1 HP/ 

OOLL 

110 

DO  10  I = 1,5 

OOLL 

111 

IFdFYR.EO.IYEARd)  ) GO  TO  15 

OOLL 

121 

CONTINUE 

OOLL 

130 

CALL  IERR0RT3, IETR, I0UM1 , IOUM2, IOBL) 

OOLL 

140 

•RETURN  NONE 

• • •• 

150 

RETURN  1 

• • • • 

160 

OO  21  J = 1,15 

OOLL 

170 

IF)ITO.EQ.ITARO(J))  GO  TO  30 

DOLL 

ISO 

CONTINUE 

OOLL 

190 

OOLL 

211 

IF  NO  RATE  GIVEN  FOR  PRIVATE  TARO,  USE 

151  . 

OOLL 

210 

IF ( ONN.NE .PRI ) GO  TO  25 

OOLL 

220 

TORATE  * 150- 

OOLL 

230 

RETURN 

TOLL 

240 

CALL  IERR0R(4, IDUMMT ,IOUMl , I0UM2, I TO) 

OOLL 

250 

•RETURN  NONE 

260 

RETURN  1 

270 

TORATE  = RATE(J.I) 

OOLL 

2S0 

RE  TURN 

OOLL 

291 

END 

OOLL 

300 

99 


•iniiiigiiiiir  rr. 
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SUBROUTINE  MEAOERINOPGI 

SUBROUTINE  TO  NRITE  REPORT  IDENTIFICATION  AND  NUNBER 

COMMON/IOENT/CONENT (SI . OATEC3I 
IFINOPG.GT.il  GO  TO  10 
IPAGE  » 0 

WRITE  lb,  1001  DATE,  COMENT 

100  EORHAT IIHI.IX,  GHOATE,  CX,  TAG.  / , ?X,  SAGI 
RE  TURN 

10  IPAGE  = IPAGE  ♦ 1 

WRITE  (6.1011  DATE,  IPAGE,  COMENT 

101  FORMAT (1M1,  IX, 10HREPORT I 63,  ?X,  SHOATEI  .1X.3AG,  85  X , 
1 IG,  /.  El,  5AG I 

RETURN 

END 


HEAD  10 
HE  AO  20 
HEAD  30 
ME  AO  GO 
HEAD  50 
HEAD  60 
HEAD  C 0 
HEAD  80 
HE  AO  90 
HEAD  100 
HEAD  110 
HE  AO  ICO 
HE  A O 130 
MEAD  1G0 
HEAD  150 
HEAD  160 


SE  - . LSI 


SUBROUTINE  GRPIO 1 IGROUPI 

SUBROUTINE  TO  PRINT  GROUP  DEFINITIONS 

COMNON/IOINT/CONENT 151 , DAIEC3I 
COMMON/IOATA/  SHIP(b.C),  IMULL16.CI 
OATA  BL  ANK/GH  / 

CALL  HFAOERI11 
WRI TE  <6, 1 001 

100  FORMA T I/////,  5 0 X , 

NRITE  (6,1011  I GROUP 

101  FORMAT I1M  , 6 1 X , 11HSHIP  GROUP  , 13,  /,  T63,  3CGM- 
OO  10  J * 1,6 

IFlSMIPCJ.il .EQ. BLANK)  GO  TO  ?0 
WRITEC6.10CI  (SHIPIJ.K),  IHULL  I J.  Kl  ,K- 1,  Cl 
10C  FORMATI1H  , 56X,  AG  , 1 X , A G,  C X , IN- , 3X  , AG  , IX  , A G,  /I 
10  CONTINUE 
CO  WRITE  16,1031 

103  FORMAT!/,  SOX,  

RF  TURN 
END 


GRPI  10 
GRPI  CO 
GRPI  30 
GRPI  GO 
GRPI  50 
GRPI  60 
GRPI  CO 
GRPI  80 

QDpT  9!) 

, /•  GRPI  100 
GRPI  110 
//»  GRPI  ICO 
GRPI  130 
GRPI  1G0 
GRPI  150 
GRPI  160 
GRPI  ICO 
GRPI  180 
GRPI  190 
GRPI  COO 
GRPI  CIO 


I 


SUBROUT  INI  IERROR  « N , IDUNNY , IOUH1 , IDUN?, I OBI  1 

I ERR 

10 

IERR 

23 

SUBROUTINE  TO  PRINT  OUT  ERROR  NESSSGES 

I ERR 

JO 

IERR 

40 

RE  SL • S I OBI 

,»»» 

SO 

IERR 

60 

GO  TO  110,20.  JO. 40. SO. 2101  , N 

IERR 

70 

10 

NRITE  IS.  100* 

IERR 

BO 

100 

F09NATI1I,  S3 H • • • GROUP  NUHBfR  * 0,  USE  OTHER  VERSION  OF 

PROGRA1ERR 

90 

IN  > 

IERR 

100 

STOP 

IERR 

110 

>0 

NRITE IS. 1011 

IERR 

120 

101 

FORNSTIK,  JON  • • • E NO  OF  FILE  ENCOUNTERED  ) 

IERR 

1 JO 

RE  TURN 

IERR 

143 

JO 

NRITE IS, 1021  IDUNNY 

IERR 

ISO 

10? 

FORNSTIK,  2RM  • • • NO  NSNOSY  RSTES  FOR  19.  121 

IERR 

160 

RETURN 

IERR 

170 

40 

NRITE  IS.10JI  IOBL 

IERR 

ISO 

10J 

F ORNA  T 1 IX , 26M  • • • NO  NSNOSY  RStf  FOR  , SSI 

IERR 

190 

RE  TURN 

IERR 

?00 

so 

GO  TO  IBS, 60. 6S , 20 , 2S.80 ,SS ,90,9S ,200, 70S » , IOUNNY 

IERR 

210 

ss 

NR ITE 18,1041  IOUH1,  IOUN? 

IERR 

?2  0 

104 

FORNSTIll,  JIM  • • • NO  NSVY  YSRO  NORK  FOR  19,  12, 

IX 

• 

IERR 

2J0 

1 1 OMF OR  GROUP  , IJ  » 

IERR 

?4  0 

RE  TURN 

IERR 

?so 

60 

NRITE IS, 10SI  IOUH1,  IOUN? 

IERR 

26  0 

10S 

FORNSTIK,  62H  • • • NO  ES ST  COSST  NSVY  YSRD  NORK 

FOR 

19,  I? 

, 

IERR 

270 

1 K,  10HFOR  GROUP  , IJ  • 

IERR 

283 

RE  TURN 

IERR 

?9  0 

6S 

NRITEIS.106I  IOUN1.  IOUN? 

IERR 

J00 

106 

F ORNS  T 1 1 X , 42  N • • • NO  NEST  COSST  NSVY  YSRO  NORK 

FOR 

19,  I? 

IERR 

J10 

1 IK.  10MFOR  GROUP  , IJ  1 

IERR 

J23 

RE  TURN 

IERR 

JJ3 

70 

NRITE  IS, 10  71  IOUN1,  IOUN? 

IERR 

34  0 

10? 

FORNSTIK,  J4M  • • • NO  PRIVSTE  YSRO  NORK  FOR  19, 

12* 

K, 

IERR 

JSO 

1 1 0 MF  OR  GROUP  . IJ  » 

IERR 

363 

RE  TURN 

IERR 

3 7 0 

?s 

NR ITE  18,1081  1 0 UNI , IOUN? 

IERR 

JSO 

10S 

FORNSTIK,  4SM  • • • NO  ESST  COSST  PRIVSTE  YSRO  NORK 

FOR  19, 

12. 

IERR 

390 

1 IK,  10HFOR  GROUP  , IJ  1 

IERR 

400 

RETURN 

IERR 

410 

so 

NRITE  18,10  91  IOUM1,  IOUN? 

IERR 

420 

109 

FORNRTtlK,  GSM  • • • NO  NEST  COSST  PRIVSTE  YSRD  NORK 

FOR  19, 

12* 

IERR 

430 

1 K,  10MFOR  GROUP  , IJ  1 

IERR 

440 

RETURN 

IERR 

4S0 

ss 

NRITEIS.UOI  IOUN1,  IOUN? 

IERR 

460 

110 

FORNSTIK,  J2N  • • • NO  CONVERSION  NORK  FOR  19,  I? 

, IX, 

IERR 

470 

1 1 OMF  OR  GROUP  , IJ  1 

IERR 

480 

RETURN 

IERR 

490 

90 

NRITE  18,1111  IDUN1,  IOUN? 

IERR 

SOO 

111 

FORNRTtlK,  JJN  • • • NO  SCTIVE  SHIP  NORK  FOR  19,  12, 

IK, 

IERR 

510 

1 1 OMF  OR  GROUP  , IJ  * 

IERR 

520 

RETURN 

IERR 

SJO 

9S 

NRITE  18,1121  IOUN1,  IOUN2 

IERR 

540 

112 

FORNRTtlK,  J4M  • • • NO  RESERVE  SHIP  NORK  FOR  19, 

12. 

K, 

IERR 

SSO 

1 1 OMF  OR  GROUP  , IJ  1 

IERR 

560 

RETURN 

IERR 

57  0 

?00 

NRITE  IS, 11  Jl  IOUN1,  IOUN? 

IERR 

SSO 

11J 

FORNRTtlK,  2SM  • • • NO  NSP  NORK  FOR  19,  12,  IK, 

IERR 

59  0 

( 


101 


' ’ 


— "7" 


1 10HFOR  GROUP  , IJ 

1 

IIRR 

60S 

RETURN 

I ERR 

610 

?•* 

NRITE10,ll*l  IOUHT 

I ERR 

6E0 

It* 

FORNATI1I,  ESN  • • 

• NO  OATA 

FOR  GROUP  , III 

I ERR 

610 

Rf  TURN 

IERR 

6*0 

l to 

NR  l T f ( A , 11*1  iobi. 

I OUH l 

I ERR 

6*0 

It* 

FORNAT  ll«.  IAN  • • 

• NO  OA I A 

FOR  , AS,  11,  1JNFOR  GROUP  , III 

IERR 

66  0 

RE  TURN 

IERR 

6 r o 

END 

IERR 

to: 

10  J 
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SUBROUTINE  R A T E 1 0 < NOY  ARO  « NYEAR.  1NATI 

RAT! 

13 

RATE 

?0 

SUHROU T I Nf  10  WRIT!  SUMMARY  PAGE  F 0*  MANOAY 

RATES 

RATE 

33 

AND  MATERIAL  FACTOR 

RATI 

»0 

RATI 

S3 

R£  Al • S IYAR3,  [ YOSCL 

60 

RATI 

/ o 

COMMON  /N PUT/  I YOSCL (131*  I V ARO 1 1 9 ) 

RATI 

so 

COMMON  /Ml  SC  / IYtARtM, 

RATE 

9 3 

CALC  HlAOIR(l) 

RATE 

133 

WRITE  1 8 * 10  3) 

KATE 

110 

133 

• • « 

►•RATE 

I/O 

• • 

. / i 

RATE 

133 

WRITE  18, 1 311 

RATE 

143 

131 

FORMAT  (1H  , S/X,  ? 1 Ml  ABOR  RATES  IN  f/MANCTAY 

/ » 

RATE 

ISO 

IF  <nye  ar.ne.si  go  to  ?j 

RATE 

163 

WR ITE  (8,10?)  f tffiftt XI t I*l«§l 

RATE 

1/3 

13? 

FORMATI1H  , 3 3 A , 4MYAR0,  S(3X.8MYEARI  19,1?) 

/ 

T3.’, 

4 M , 

RATE 

1 S 3 

1 81  3X,  2 <4M ) , ? M - - ) ) 

RAU 

190 

GO  TO  83 

RATE 

no 

?0 

IF  <NVf  ARoNE.4)  GO  TO  30 

RATE 

?10 

WRIlElb,133)  I Iff AR 1 1 1 . I >1 . -1 

RATE 

tzi 

las 

FORhtlllN  , 3b<.  <.H»ARO.  % 1 3S ,*HV f AR 1 1 4 , I 1 

/ 

T 3S  , 

4 N , 

RATE 

t 3 0 

1 4 < 3 X , ?t4M----T,  ?M--  >) 

RATE 

.'4  3 

GO  TO  80 

RATt 

?SJ 

3] 

IF (NYt AR.NE.3)  GO  TO  43 

RAU 

?6J 

WRITf(b,104»  (I  YEAR <11,1*1,31 

RA  Tf 

^7  0 

134 

FORMAT ( 1M  , 4?X,  4MYAR0,  3<3x,SnYEARI  19,I?I 

/ 

T 44  , 

4 M , 

RATt 

/SO 

1 3C3Y,  ? ( 4 M 1 , ? M-  - 1) 

RATE 

?9  3 

GO  TO  83 

RAT  t 

30  3 

43 

IF  (NYf AR.NE.?)  GO  TO  sq 

RATt 

313 

wwmib.IJ'l  lirFARII),  1*1. ?! 

RATE 

3?  0 

10' 

F ORNATE 1H  , 4 A X • 4MY  ARO  « ?< 3 X , 8 m y t AR 1 19,1/1 

/ 

TS0, 

4 M , 

RATE 

33  3 

1 ? < 3 X , ?<4M 1,  ?M--  )) 

RATt 

34  0 

GO  TO  80 

RATE 

3S  3 

'0 

WRITE  <8, 1 081  IYE  AR<  1 ) 

RATE 

360 

108 

F08MATUM  , S 4 X , 4MYAR0,  3X  , SMYEARI  19,  I?, 

/ 

T S 8 , 

1 

• 

1 

1 

Z 

-9 

RATE 

3/3 

1 ?I4M »,  ?M- - ) 

RATE 

3S3 

80 

no  ??o  i * i.noyaro 

RATE 

349 

GO  TO  I /0 , SO, 90 , ?00 , ?1 01 . NYCAR 

RATE 

433 

n 

WRITE  lb  • 1 3 M ITAROII),  (R»TE  II, Jl  .JM.MYfARI 

RATE 

410 

iot 

FORMAIIIM  , Sb*.  AS,  31.  F4  . ? , / ! 

RATE 

4?  0 

G o TO  ?'0 

RATt 

S3  J 

SO 

WRITE  It..  1 0»t  ITAROII).  CRATE  II.  Jl  ,J*1. NYEAR! 

RATt 

440 

13* 

FORMAT  (IH  , .11,  AS,  ?I3«,F<».;|  / 1 

RATE 

S'J 

GO  TO  ??  3 

RATE 

480 

90 

WRITE  IE, 10R1  ITAROII),  IRATECI.JI  ,J*l. NYEAR! 

RATE 

4/0 

109 

FORMATC1M  , 4/X,  AS  # 3<JX,F9.?»  / » 

RA  TE 

4 S 3 

GO  TO  ??3 

RATt 

493 

?ia 

WRITE  lb, 1131  ITAROII),  IRATEII.J)  ,J*t,NT£ARI 

RATE 

s a a 

110 

FORMAT  < IM  , 3 8 X , AS,  4(3X,F9.?t  / 1 

RATt 

sia 

GO  TO  ??0 

RATt 

s?  0 

.’13 

WRITE  lb. 111!  ITAROII),  IRATE  11, J) .J’l.NYEARI 

RATI 

'3  a 

111 

FORMAT (IM  , 3 3 X , AS,  S(3XVF9.?I  / 1 

RATE 

s.a 

??0 

COMT  TRUE 

RATt 

ssa 

WRITE  <8,11/1 

RATE 

SbO 

11? 

FORMAT!///,  ??X,  ^•••••••••••••••••••••••» 

• t« 

••tiff 

sia 

1 

RA  It 

S80 

WRITE  <8,1131 

RATE 

sia 

"~T— y;  ‘T- 


113  FORMAT  f/// ////// * 3 2 X , 59N» •••••••••••••• •• 

, /) 

WRITE  lb, 114T  THAT 

114  F0RMATI1H  , 44X,  18HMATERIAL  FACTOR  = • 13, 

1 23H  PERCENT  OF  LABOR  COSTS,  /I 

WRITE  lb, 11SI 

US  FORMAT!/,  32X.  59H***#***#**#*#*#*#*#****** 

l»»»» • . I 

RE  TURN 
END 


RATE  600 
RATE  b 1 0 
RATE  b20 
RATE  630 
RATE  640 
RATE  6S0 
RATE  b60 
RATE  620 
RATE  680 
RATF  690 


SUllKOUUNt  HI  POM  1 INYlAH,  IOPI,  1 MAI  t NYOS,  II  Al  HA,  IUM0OPI 


HI  PI 
HI  PI 

tUMHOlll  INI  10  NHPI  KtPONlS  ION  A SHIP  UHOOPlNl.  HY  Y t AN  HI  PI 

Nl  PI 

HI  Al  • A I OHl*  1 1 Y AMO  IVANIIv  lYOStl  •••• 

Nt  PI 

COMMON/ UIAI  A/  NKlPIft,.'!,  iNUlllft./l  HI  PI 

COMMON  /NOMA/  AKKAV  t 1 1 A • *»v  i At  , AHH  AY  t 1 1 A , N , t • I , AHH  AYIH  I A , •» , I A » f HIP1 

t AHH AVM< t A, * ,1 Al  • OAMMAY  I I .1*%,  t » • OY  AH  0 1 M , H , f » NtPI 

COMMON  /Ml  SC  / 1YIAHIM,  HA1Mt**M  KM*  I 

COMMON  /NPUl  / tVOSItllll,  lYAHOUM  HI  PI 

COMMON  / 0 1 Ml  H / If  l AUl  |N,M  , IHC.UIVM,  l UMOS  1 1 S , N I , UINOSS  I \ N , N I K I P I 
0 1 M|  NS  I ON  DA  V I HI  t OOMHI,  1001  Mil,  IUMHI,  1 OP  I It  A I HI  PI 

00  SOU  J • lv  NY  I AH  Ml  PI 

HI  PI 

II  SI  II  I Ml  Hi  IS  ANY  OA 1 A Al  All  IN  lHl\  uNOOP  HIP! 

If  | If  l Al.lt  1,  Jl  . Nl  . Jl  1.0  10  I H|  PI 

CAU  II  HMOM 1%  « I I • 1 00 Ml  • IUMOOP  • 10 Ml  I HI  PI 

II  110  NOS  I I 1,  J I • Nl  .01  CO  10  I HI  PI 

C Al  l II  HMOMIA  • 1 1 1 10UMI  , IbMOUPt  IOIUI  HI  PI 

HI  1 OH N HI  PI 

l JYI  AH  • IYIAHI.il  H | P 1 

NON  III  H • J KIP! 

K|  P| 

CHIC  A All  OP  I IONS  Kl  PI 

00  fNJ  I • l,  l A HI  PI 

INIIIAIIII  W AlOIN  KIP1 

JSUMO Y • 0 H f PI 

JSUM01  • .1  KIP1 

OSON  - il.J  HI  PI 

0001  *0.0  HI  PI 

If  1 1 • ( (!•  t J I GO  f 0 t Kl  PI 

If  IIOPI  111  .10.  l»0  10  /NJ  HI  PI 

HI  PI 

CHICK  f OH  ANY  0A1A  IN  KlUUtSIIO  OP  1 1ONS  HI  PI 

If  < K f l A(.  I t v Jl  . I U.  0 . ANO.  I UNOM  I • Jl  • I 0.01  (.0  1 0 A **  HI  PI 

1 1 • 10P1  111  • l HI P I 

GO  10  n HIP! 

• 11  • I H I P 1 

HI  PI 

OIUHNINI  ONOS  NOHA  hi  PI 

n If  IIUNOSI  l » Jl  .IQ.  Jl  GO  TO  P HI  PI 

OSON  * OAHHAY  1 1 l . J,  I • HI  PI 

0001  - OAMMAY  II  I , J,  HI  PI 

A DO  Id  A • 1 # M HI  PI 

0AY1AI  » AHH  AY  1 I 1 l • J • A I HIPI 

001  IA  • AHMA  Y .*  I 1 1 • J *AI  HIPI 

JSUMO Y - JSOMOY  » If  1 A 1 1>  A Y I A M Hi  PI 

.ISO  MO  l • JSlIMOl  ♦ I f 1 A 1 001  I A I I HIPI 

1.1  CONI  l NO  I HIPI 

HIPI 

A 00  ONOS  0 A 1 A 10  101 Al  S HIPI 

JSOMOY  JSOMOY  • IMXIOSONI  HIPI 

JSOMOl  - JSIMOI  • lf|A  1 0001  I HIPI 

HI  PI 

PO  I HANOI  Y OA  I A IN  1 N 1 1 wl  N f OHM  ANO  COM  Oil  A IN  IHOOSANOS  HIPI 

Of  001 1 AH  \ HIPI 

00  I •*  AA  • l#M  HIPI 

lOAYIAAt  If  l A IOAY  CAAI  I HIPI 


l J 

/a 

.in 

nO 

*a 

hJ 

ro 
aj 
*a 
taa 
t la 
it  J 
1 1 a 
m a 
ih  a 
in  a 
tr  a 
i a a 

l A.' 
X An 

i*i  a 
.•a  a 
.•io 
a 

t x a 

4*  *»o 

.•sa 
.•a  a 
tr  a 
.•a  a 
/* i a 
i.i  a 

Hi 
l.'O 
Oil 
In  a 
*»  a 

AMI 

*t  a 
mo 
a *i  a 
n a o 

Nia 

N«*  J 
Nia 

nn  a 
nn  a 

AM) 

nt  a 

NAO 

N'ia 

naa 
n \ a 

N **  0 

n i a 

nn  a 
nn  a 

nn  a 
nn  a 


1 001  i KK I * H I x (OOl  (KM  / 1303.1 
l?  CONTINUE 

isumol  jsumol/iooo 

IUOOL  * IF IX ( UDOL/1 000.  I 
IUSUH  * IFUIUSUNI 

CALC U LAIC  MATERIAL  COSTS 
HA!  * ISUHOL  • IMAT/100 
IF  (HOlUNUMBf  R,4l  .Nf.OE  GO  T 0 1 M 

CALL  t t tli ( jy ear, icxtra , igroupi 

1 *»  NUMBER  * NUMBER  ♦ t 

GO  10  l«>0,33, 40.S0.b0,73.A0,9Jt ?3  3 , ? 1 0 , ?e  J • ? 3 0 , ?4  0 I , II 
20  MR  I TE  <6,1  3 Jl 

103  FORMA1C1M  , 1 l H G R 0 U P TOfAL,  / IX,  ?(«*M 1,  3M 1 

2*  IFIIF XIRA.NE. 0>  GO  TO  28 

WRITE  lb, 1011  (IOAYIK),  K 1,9) . JS UMO* 

131  FORMAT  I 1 H , ?3MQIRtCT  LABOR  MANDAVS,  ?X * 13(19,1X1  / I 
WRITE  IK,  10?)  (IOOL  (M  ,K=  1,4)  , ISUMOL 
\02  FORMATC1M  , IAMDIRECT  LABOR  COSTS,  4 X , 9(19,1X1,  IB,  / , 

1 IX,  ??N  E T HOUS A NOS  OE  OOLLARSI,  / I 
WRITE  (b, 1 331  MAT 

103  fORMAMlM  , IMMATERIAL  COSTS,  97X,  110,  / , 

1 IX,  ,»?M(  TMOUSANOS  OF  OOLLARSI,  //  1 
GO  TO  2*0 

WRITE  STATEMENTS  FOR  EXTRA  UNOS  VALUES 
28  WRITE  (b,lt7l  (IOAY(K) ,K  1,91 , IUSUM,  JSUMOY 
117  FORMAT  C 1 M , ' 0 MO  I RE  C T LABOR  MANPAYS,  IX,  11(19,1X1,  / | 

WRITE  (b.tlAT  UnOL(K)  ,K  - 1,91  , IUOOL,  ISUMOL 
1 1 A FORMATI1M  , IAMDIRECT  LABOR  COSTS.  3 X , 13(19,1X1,  19,  / , 

I IX,  ??MI TMOUSANOS  OF  OOLLARSI,  / I 
MR  ITI  (b,  1 191  MAT 

119  EORMATC1M  , IMMATERIAL  COSTS,  lObX,  110,  / • 

1 IX.  «VM  ( TMOUSANOS  OE  OOLLARSI,  //  » 

GO  TO  2*0 

13  WRITE  (b, 1341 

1 J 4 F ORM  A T C 1 H , HMWORK  IN  NAVY  YARDS*  / IX,  *♦  ( 4 N I,  ?M--I 

GO  TO 

4 J WRITE  (*,lJr'l 

1JS  EORMATUM  , J1ME  AST  COAST  NAVY  YAROS,  / IX,  SUN 1,  1H-  » 

GO  TO  2* 

S3  WRITE  (6,1  0M 

13b  EORMATUM  , DIMMEST  COAST  NAVY  YAROS,  / , IX,  S(4M T , 1M-  > 

GO  TO  2* 
b 3 WRITE  (b,t  3 FI 

IJ7  EORMATUM  , 2 1 M WORK  IN  PRIVATE  YAROS,  I , IX,  SI4H 1,  1 M-  1 

GO  TO  2^ 

1 0 WRITE  (b,  l J A I 

1 1 A FORMAT  UM  , l A ME  AST  COAST  PRIVATE  , /,  IX,  4(4M 1, 

GO  TO  ?« i 
A3  MR1  Ti  (b,  1 391 

139  TORMATUH  , lAMWfST  COAST  PRIVATE,  /,  IX,  4(4M 1,  ,’M--| 

(.0  TO 

9 3 MR  I TI  <b, 1 131 

IIJ  FORMAT  I1M  , l SMCONVf RSI  ON  WORK,  /,  IX,  3I4M 1,  3M 1 

GO  TO  2*> 

2U  WRITE  (b.  lltl 

111  FORMAT  I 1M  , IbM ACTIVE  SMTP  WORK,  / IX,  4<4M El 


RE  P T S73 
REPT  SAG 
REP!  *90 
RIPT  603 
RE  PT  bl  0 
RfPT  b»  0 
REPT  b3  3 
REPT  b4  0 
RfPT  6S3 
REPT  bbO 
REPT  670 
REPT  6 A 0 
REP!  693 
REPT  703 
RE  PI  710 
REPT  7 20 
RIP!  73  0 
REPT  740 
REPT  7*0 
RIPT  763 
REPT  770 
RIPT  7 A 0 
RfPT  790 
KEPT  A 3 3 
RIPT  A10 
REPT  82  3 
REPT  A 3 0 
RIPT  A4J 
KEPT  AS0 
RIPT  Ab3 
RIPT  A 7 0 
RIPT  A A J 
RE  PI  A90 
RIPT  933 
RfPT  910 
RIPT  9.’J 
RIPT  930 
REPT  940 
RfPT  9S  0 
RfPT  9b  J 
REPT  970 
R E EM  9 A 3 
REPT  9 A s 
RfPT  99  J 
RE  EM  100  0 
RffM  l 31  0 
RE  PT 10^0 
RE  EM  10  30 
Kl  EM  1040 
RE  PT 1 3S3 
RE  EM  1 3b J 
RE  PI  1 J 7 3 
RE  EM  1 0A0 
RE  EM  1 3 93 
RE  EM  1 103 
RE  EMI  110 
RE  EM  1 IJO 
R t EM  l 1 3 3 
RE  PT 1 140 
RE  EMI  ISO 


GO  TO  25 

ZIO  WRITE (6,1121 

112  FORNATdH  , 1 THRE  SERVE  SHIP  WORK,  / , IX,  6I6H 1,  1H-  I 

GO  TO  25 

220  WRITE (6,1 131 

113  FORNATdH  , SHNAP  WORK/  , 1 X , 2(6M II 

GO  TO  25 

230  WRITE  16,1161 

116  FORNATdH  , 11HREPAIR  WORK.  / , IX,  2(6H 1,  JH I 

GO  TO  25 

260  WR ITE (6,1151 

115  FORNATdH  , 15HALTERATI0N  WORK,  / , IX,  3(6H 1,  3H I 

GO  TO  25 

265  1 1 OPT  = I OPT ( 1 1 

ERROR  PATH  FOR  VARIOUS  OPTIONS 
CALL  IERR0R(5,I I OPT, JTEAR, I GROUP, IDBLI 

250  CONTINUE 

SECTION  FOR  TARO  SUNNARIES 
IF (NTOS.EO.OI  GO  TO  300 
OO  275  I < 1,  NT  OS 

INITIALIZE  VALUES 
JSUHOT  • 0 
JSUNOL  « 0 
USUH  >0.0 
UOOL  < 0.0 

CHECK  FOR  ANT  DATA  IN  REQUESTEO  OPTIONS 
IFIIFLAGGII.JI.EQ.O  .ANO.IUNOSSII.JI.EO.OI  GO  TO  270 
IFlIUNOSSd.JI.EQ.OI  GO  TO  255 

DETERMINE  UNOS  WORK 
USUN  < UTARDd.J.ll 
UOOL  > UTAROI  I , J , 21 

255  00  260  K » 1,9 

DAT  I K I > ARRATO ( I , J,KI 
DOLIKI  > ARRATNII.J.KI 
JSUHOT  > JSUHOT  ♦ IFIX(OATIKII 
JSUNOL  • JSUNOL  ♦ IFIX(OOL(KII 

260  CONTINUE 

A 00  UNOS  DATA  TO  TOTALS 
JSUHOT  • JSUHOT  * I F 1 X ( USUH I 
JSUNOL  • JSUNOL  ♦ IF  IX (UOOL I 

PUT  NANDAT  DATA  IN  INTEGER  FORH  ANO  COST  OATA  IN  THOUSANDS  OF 
00  262  KK  • 1,4 

IDOL  (KX I • IF  I X (OOL ( KKI  / 1 000.1 
IOATIKKI  • IF  IX (OAT ( KKI  I 

262  CONTINUE 

ISUHOL  • JSUNOL  / 1 00  0 
IUOOL  • IFIXIUOOL/IOOQ.I 
IUSUN  • IFIKUSUNI 

CALCULATE  MATERIAL  COSTS 
NAT  ■ ISUHOL  • INAI/100 
IF  I NOO I NUNBE R , 6 1 .NE.OI  GO  TO  264 
CALL  TITLE  I JTEAR, IEXTRA,  IGROUPI 

264  NUNBE R > NUMBER  * 1 


KEPT1 160 
REPT117J 
REPT1100 
REPI1190 
REPT1200 
REP  T 121 0 
RE  P 1 122  0 
REPTI230 
REPT1260 
REPT125J 
REPT1260 
RE  PT 1 27  0 
REPT12O0 
REP  1 1 290 
REPI1300 
RE  PT 1 31 0 
REPT1 320 
REPI1330 
RE  P T 1 36  0 
REPT 1350 
REPT1355 
REPT 1 360 
REPT 1 37  0 
RE  PT 1 30  0 
RE  PT 1 39  0 
REPT 1600 
REPT 161 0 
REP  T 162  0 
REP  T 1 630 
RE  PT 1 660 
REPT1450 
REPT 1 660 
REPT1470 
REPT 160  0 
REPT 1 690 
REPT1500 
REPT 1 51 0 
REPT1520 
REPT1530 
REPT1560 
REPT 1550 
REPT1560 
RE  PT 15  7 0 
REPT 1 5(0 
REPT 1490 
REPT 160  0 
SRE  PT 161 ( 
RE  PT 1 620 
REPT 1630 
RE  PT 1660 
REPT 1650 
REPT 1660 
REPT1670 
Rl PI  1600 
REPT 1690 
REPT1700 
RE  PT 1 71 0 
REPT1720 
RE  PT 1 730 
RE  PT 1 760 


107 


MRITf  Eb.llbl  IYOSEL E 1 1 

KEPT l 7 SO 

llt> 

FOKNAK1H  , SHYARDl*  tX,  AS,  / IV,  SH , |H-  » 

RE  P T l 7b  0 

1 f ( 1 E X 1 K A . NE  • 0)  GO  TO  ?b7 

REPT 17  70 

MRITf  fb,101t  (IDAYEfcl  • K«l.9l,  JSUNOY 

«f PTI7«0 

WRITE  <b,  10  71  ( l 0 OL  ( K ) , K 1*91*  ISUNOL 

REPT 1790 

WRITE  lb,  1IMI  HAT 

REP!  1 800 

GO  TO  77 S 

REPT  1810 

c 

REPT 1 6? J 

c 

WRITE  STATEMENTS  FOR  EXTRA  UNOS  VALUES 

RE  P T 1 8 3 0 

2t>T 

WRIUCb.ltM  (IOATOOtK  1*91*  IUSUH,  JSUHUY 

REPT 1 8S  0 

MR  ITT  ( b * 1 1 8 1 (IUOLfKI  ,<>1,41  , lUOOL.ISUHOl 

REPT 18S0 

MR lit  16*1191  HAT 

REPT 18b0 

GO  TO  ?7s 

RE  PT 1870 

c 

RE PT1880 

c 

ERROR  PATH  FOR  YARDS 

REPT 1890 

21 0 

IIYARD  « IYDSEL(I) 

REPT 1930 

CALL  IERRORIb* IOUHHV , IOUHI . I GROUP* I IYAROI 

Ri PT 191 0 

n' 

CONT I NUF 

RE  PI  I 970 

.tig 

CONTINUE 

REPT 1930 

RE  TURN 

REPT  1 9**  0 

END 

RE  PI19S0 

I 


SUBROUTINE  SKPGRPEIONCE) 

SKPG 

t 0 

c 

SKPG 

4*0 

c 

SUBROUTINE  TO  SHIP  TO  NEXT  SHIP  GROJP 

SKPG 

30 

rf»l»»  isnull • i»n.  mm 

»»»• 

GO 

c 

SKPG 

so 

c* 

•to 

RfAOM?)  ISHULL*  IlYPMK,  1YD,  I GROUP,  I F YR 

• ••• 

b J 

10 

R|  »OI  17, 1 NIWJI  ISHULL,  HYP**,  iro,  IGROUP,  IFYR 

000m 

70 

c» 

Mr  it  of  ( in  .hi  . oi  »o  io 

0000 

8 3 

IF  (1FVR.GT ,31  GO  10  10 

SKPG 

90 

BACKSPACE  17 

SKP  l. 

100 

RE  TURN 

SKPG 

1 1 0 

’0 

CALI  If RRORI7* IOUHHY •IDUNI • IOUN7*  IOBU 

SKPG 

170 

c 

SKPG 

130 

c 

RtNINO  Fill  ONCt  H UN»Hll  10  MHO  It  Jilt  ST  10  GROUP  NJMtlt  R 

SKPG 

1<*0 

IFIIONCf.IO.il  STOP 

SKPG 

iso 

RIMINO  17 

SKPG 

lb  3 

IONCI  • 1 

SKPG 

1 TO 

RE  TURN 

SKPG 

183 

E Nl) 

SKPG 

190 

I OK 


SUBROUTINE  SUN! JOPT .VALUES. IVD, IFVR.VORATE.  II  I.ISAVE) 

SUBROUTINE  TO  SUN  VALUES  FOR  VARIOUS  OPTIONS 
REAL'S  I TARO.  IVOSEL.  IVO 

COMMON  /NORA/  ARRAV1I13,5,10) , ARRAY 2 ( 1 3, 5, 1 0 I , ARRAY 0<1 3 .3. 1ST . 

1 ARRAYMI13.5.18) , U ARRAY (13,5,2) , UY ARO ( 13, * .21 

COMMON/ 1 0 A T A / SHIPI6.2),  IHULLI6.2) 

COMMON  /NISC/  IVEARI5),  RATE ( 15, 5 1 
COMMON  /NPUT / IVOSEL  (13),  IVARO(IS) 

DIMENSION  VALUESI1S) 

II  * JOPT 

INITIALIZE  VALUES 
USUN  <0.0 
UOOL  <0.0 

SET  FLAG  FOR  UNOS 
IFMII.NE.O)  ISAVE  < 1 
00  10  JJ  » 1.5 
J * JJ 

IF (IFYR.Eu.IYEARIJJ) ) GO  TO  IS 
10  CONTINUE 

IS  IFtJOPT.LE.il)  GO  TO  20 
IFtJOPT.EQ.lZ)  GO  TO  30 
IF  IJOPT.EQ.13I  GO  TO  SO 
IF  € JOPT. EQ. 141  GO  TO  50 

SUM  VALUES  FOR  OPTIONS  1 THRU  10  AND  FOR  TOTAL 

CHECK  FOR  UNOS  WORK 

20  IFIIII.EQ.O)  GO  TO  22 
DO  21  K = 1,9 

USUM  = USUM  ♦ (VALUESIK)  ♦ VALUES ( 9*K ) ) 

21  CONTINUE 

UOOL  = USUM  » YORATE 

UARRAY! II ,J, 1 > < UARRAY t II , J, 1)  ♦ USUM 
UARRAY ( 1 1 , J,2 ) = UARRAY t II , J, 2)  ♦ UOOL 
WRITE ( b , 996)  1 1 , J , UARRAY 1 1 1 , J , 1 ) , USUM 

996  FORMAT  < 1M  , 6H0PT  = , 13.  2X,  7HVEAR  = , 12,  2A,  9NUARRAY  < , 

1 FS.l,  2X,  7HUSUM  = , F9.1) 

RETURN 

SECTION  FOR  SCHEDULED  WORK 

22  DO  25  K < 1,9 

ARRAYIIII.J.K)  > ARRAY ltII,J*K)  ♦ (VALUESIK)  * VALUES(9*K>) 
ARRAY2III ,J,K)  = ARRAY2 ( 1 1 , J, K)  ♦ (VALUESIK)  ♦ VALUES(9»K)) 

1 » YORATE 

25  CONTINUE 

NRITEI6.999I  II, J,  ARRAY  1 1 1 1 , J, 1 ) 

999  FORMA  T 1 1 H , 6H0PT  * , 13,  2X,  7HYEAR  < , 12,  2X,  8HARRAY  « , FS.l 
998  FORMA  T ( IN  , 6H0PT  < , 13,  2X,  7HVEAR  < ,12,  2X,  9HARRAY0  « .F8.ll 
WRITE  (6,99  7)  VALUES(l) 

997  FORMATI1H  , 9HVALUES  * , F9.1) 

RETURN 

SUM  VALUES  FOR  REPAIRS,  ONLY 


SUMM  10 
SUNN  28 
SUNN  30 
SUMM  40 
50 

SUMM  60 
SUNN  70 
SUMM  80 
SUMM  90 
SUMM  100 
SUNN  110 
SUNN  120 
SUMN  130 
SUMM  ISO 
SUMM  150 
SUNN  160 
SUMM  170 
SUMM  ISO 
SUMN  190 
SUNN  200 
SUNN  210 
SUMM  220 
SUMM  230 
SUNN  2S0 
SUMN  250 
SUMN  260 
SUMM  270 
SUMM  280 
SUMM  290 
SUMM  300 
SUMM  310 
SUMM  320 
SUMM  330 
SUMM  3S0 
SUMM  350 
SUMN  360 
SUMM  370 
SUMM  380 
SUMM  39 0 
SUMM  S00 
SUMM  S10 
SUMM  S2  0 
SUMM  S 30 
SUMM  SS0 
SUMM  650 
SUMM  S60 
SUMM  S73 
SUMM  S80 
SUMM  490 
SUMM  500 
SUMM  510 
SUMM  520 
) SUMM  530 
SUMM  540 
SUMM  550 
SUMM  560 
SUMM  570 
SUMM  580 
SUMM  590 
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JO  IF 1 1 1 1 • f Q . 01  GO  TO  32 
00  31  K = 1,9 
USUN  « USUN  ♦ VALUES  IK) 

J1  CONTINUE 

UOOL  - USUN  • YORATE 

UARRA  YIII.J,  11  = UARRATI II, J.ll  ♦ USUN 

UARRA V III , J, 21  * UARRAV 1 1 1 , J , 21  ♦ UOOL 
RETURN 

SECTION  FOR  SCHEOULEO  VORK 
32  00  35  K * 1,9 

ARRAY  1 I I I , J,  K I > ARRAY1  I II , J.KI  ♦ VALUESIKI 

ARRAY  2 1 1 1 , J,  K I = ARRAY2 1 1 1 , J , Kl  ♦ VALUESIKI  • YDRATE 

39  CONTINUE 
RETURN 

SUM  VALUES  FOR  ALTS,  ONLY 

40  IFIIII.EQ.O)  GO  TO  42 

00  41  K * 10,10 

USUN  * USUN  ♦ VALUESIKI 

41  CONTINUE 

UOOL  * USUN  • YORATE 

UARRA Y 1 1 1 , J, 1 1 * UARRAYIII, J.ll  ♦ USUN 
UARRAV III , J, 2 I * UARRAYIII. J, 21  ♦ UOOL 
RETURN 

SECTION  FOR  SCHEOULEO  WORK 

42  DO  45  K * 10,10 

ARRAY1III  .J.K-91  » ARRAY  1 1 1 1 . J, K- 91  ♦ VALUESIKI 
ARRAY2III  .J.K-91  * ARRAY21 1 1 . J.K-91  ♦ VALUESIKI  • YORATE 
45  CONTINUE 
RETURN 

FOR  SUNNAT IONS  BY  YARD 
50  00  55  L = 1,13 

1 * L 

IFIIVO.EQ. IYOSEL ILI I GO  TO  bO 
55  CONTINUE 

60  IFIIII.EQ.OI  GO  TO  62 
00  61  K = 1,9 

USUN  = USUN  ♦ (VALUESIKI  ♦ VALUESIK»9II 

61  CONTINUE 

UOOL  = USUN  • YORATE 
UY  ARO  1 1 , J , It  * UV  AR0II.J.1I  ♦ USUN 
UYARDII.J.2I  * UY  ARO  1 1 • J , 21  ♦ UOOL 
NRITE (6 , 9951  1 1 , J , UV ARO 1 1 , J , 1 1 . USUN 
995  F0RNATI1H  , 6H0PT  • , 13.  2X,  7 MY  EAR  = , 12,  2X,  ONUYARO  > , 
1 FO.l,  2 X • 7 HUSUN  * , F9.ll 
RETURN 

SECTION  FOR  SCHEOULEO  NORK 

62  00  65  K * 1,9 

ARRAYOI I , J.KI  • ARRAYOII.J.KI  ♦ (VALUESIKI  ♦ VALUES  IRAKI  I 
ARRAYNI I, J.KI  « ARRAYNI I ,J,KI  ♦ (VALUESIKI  ♦ VALUES I9*K 1 1 
1 • YORATE 

65  CONTINUE 

NRITE (6,9901  I I . J, ARRAYO I I . J, II 

NRITE  16,9971  VALUESIll 

RETURN 

END 


SUNN  600 
SUNN  610 
SUNN  620 
SUNN  630 
SUNN  640 
SUNN  650 
SUNN  660 
SUNN  670 
SUNN  680 
SUNN  690 
SUNN  700 
SUNN  710 
SUNN  720 
SUNN  730 
SUNN  740 
SUNN  750 
SUNN  760 
SUNN  770 
SUNN  780 
SUNN  790 
SUNN  800 
SUNN  810 
SUNN  820 
SUNN  830 
SUNN  840 
SUNN  850 
SUNN  860 
SUNN  870 
SUNN  880 
SUNN  890 
SUNN  900 
SUNN  910 
SUNN  920 
SUNN  930 
SUNN  940 
SUNN  950 
SUNN  960 
SUNN  970 
SUNN  980 
SUNN  990 
SUNN1000 
SUNNI  010 
SUNNI  02  0 
SUNNI  030 
SUNN1040 
SUNNI  05  0 
SUNN1060 
SUNNI  0 7 0 
SUNH1080 
SUNN1090 
SUNNI  100 
SUNNI  110 
SUNNI  120 
SUNNI  130 
SUNNI 140 
SUNNI 15  0 
SUNNI  160 
SUNNI  170 
SUNNI  100 
SUNNI  190 
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SUBROUTINE  TI TIE  I IFYRt  IEXTRR,  IGROUPl  TITL  1 

C TITL  7 

C SUBROUTINE  TO  NRITE  TITLE  TITL  S 

C TITL  4 

OINENSION  ISWBSIBI  TITL  $ 

OR  TR  ISWBS/  111,  700,  TOO.  400,  BOO,  600.  7 00.  BOO,  BOO/  TITL  6 

C TITL  7 

C4LL  HER0ER1II  TITL  • 

WRITE  (6,10  01  IGROUP,  IF  YR  TITL  B 

100  F0RN4TI1H  , 6 IX,  4BM0EP0T  NRINTENRNCE  PLRNNINC  4N0  PROGRRNHI NG  SYSTITL  10 
ITEN,  / 46X , 3 BHNISS  I ON  ESSENTI6L  NORKLORO  REQUIRE  NE  NTS , / TITL  11 

7 67X,  7HBV  SNBS,  //,  TITL  17 

3 S4X,  6HCR0UP  , 13, 3X.BHFISC6L  IB,  17  / TITL  1J 

6 TBS,  7(4N- 1,  1N-,  3X,  7(4N 1,  3N , //  I TITL  14 

TITL  IB 

USE  DIFFERENT  HERDING  IF  HRVE  RNY  UNOS  04TR  FOR  R GIVEN  SHIP  TITL  16 
GROUPING  TITL  IT 

IFIIEXTRR.EQ.lt  GO  TO  10  TITL  10 

WRITE  16, 1 0 It  (ISWBS(I),  I-1.B1  TITL  IB 

191  FORNRTtlH  , 77K , BtlX.SHSMBS  . IS,  1X1,  7 X.  BHTOTRL,  /,  T74.  TITL  70 

1 10(11.  ?(4N »,  1X»I  TITL  71 

RETURN  TITL  77 

10  NRITE (6,1071  ( ISWBS ( 1 1 , 1 "i , B)  TITL  7S 

107  FORNRTdH  , 71X  , BllX.SHSNBS  , IS. IX),  7X . BHOTNER  ,BX,  BHTOTRL  . /,  TITL  74 

1 T73,  1 0 ( IX  , 7 ( 4H 1,1X1,  IX,  7 (4H It  TITL  7B 

RETURN  TITL  76 

END  TITL  77 
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b.3.6  GLOSSARY 

COMMON  VARIABLES 

Common  Block  /I DATA/ 

IHULL(6,2)  Array  of  hull  numbers;  the  first  subscript  refers  to 

the  hull  number  ana  the  second  to  (1)  lower  bound  ol  a 
ship  group  anci  (2)  upper  Ixiuno  of  that  group. 

SHIP(b  2)  Array  of  ship  names;  the  first  subscript  refers  to  the 

ship  type  and  the  second  to  (1)  lower  bounc  of  a shin 
group  and  (2)  upper  bounci  ot  that  group. 

Common  Block _ I PENT. 

COMENTf 3)  Array  of  report  ioent  it  icat  ion  information, 

DATE ( 3 ) Array  containing  the  date  of  the  run. 


Array  ot  years  to  tie  reported  on,  oetermineo  by  input. 

Array  of  manday  rates;  the  first  subscript  tefets  to 
the  yard  and  the  seconc.  to  the  year . 

Common  Block  I NITTY 

IYARD(13)  Array  ot  yards  corresponding  to  the  manday  rates 

specif ieo  by  the  array  DATE. 

I YDS EL ( 1 3 ) Array  of  yards  to  he  processed,  determined  by  input. 


C onuion  Block  'MI SC 7 

I YEAR ( 3) 

RATE(  1 3, 5) 


Common  Block  /OTHER/ 


I FLAG (15,3) 

I FLAGG ( 1 3,3) 


Array  of  flags;  the  first  subscript  refers  to  the 
option  ana  the  second  to  the  year. 

Array  of  flags;  the  firs'-  subscript  refers  to  the  yard 
and  the  second  to  tho  year. 


I LTTiOS  ( 1 5,5) 


Array  of  t laas;  the  first  subscript  refers  to  the 
option  with  resnect  to  "other"  shipwork  (UNOW)  anci  the 
second  to  the  year. 
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Common  Block  , OTUUP/  ( Cont i nued ) 

IUNOSS( 1 5, 5)  Array  of  flags;  the  first  subscript  refers  to  the  yard 
with  respect  to  UNOW  work  and  the  second  to  the 
year . 


Common  Block  /WORK/ 

AKRAYl ( 13, 5,18)  Array  of  direct  labor  mandays;  the  first  subscript 

refers  to  the  option,  the  second  to  the  year,  and 
the  third  to  the  nine  single-digit  SWBS  categories  for 
repairs  and  for  alterations. 

APRAY2( 13, 5,18)  Array  of  material  dollar  values;  the  first  subscript 
refers  to  the  option,  the  second  to  the  year,  ana 
the  third  to  the  nine  single-digit  SWBS  categories  for 
repairs  ana  for  alterations. 

ARRAYP(13,5,18)  Array  of  direct  labor  mandays;  *-he  first  subscript 

refers  to  the  yard,  the  second  to  the  year,  ana 
the  thira  to  the  nine  single-digit  SWBS  categories  for 
repairs  and  for  alterations. 

ARRAYM (13,5,18)  Array  of  material  dollar  values;  the  first  subscript 
refers  to  the  yard,  the  second  to  the  year,  and 
the  third  to  the  nine  single-digit  SWBS  categories  for 
repairs  and  for  alterations. 

UARRAY(13,5,2)  Array  containing  (1)  direct  labor  mandays  for  (TNOW  (it 
the  third  subscript  is  "1"),  and  (2)  (.iNOW  material 
dollars  (if  the  third  subscript  is  "2").  The  first 

subscript  refers  to  the  option  and  the  second  to  the 
year . 

UYARD(13,5,2)  Array  containing  (1)  direct  labor  manaays  for  UNOW  (if 
the  thira  subscript  is  "1"),  and  (2)  UNOW  material 
dollars  (if  the  third  subscript  is  "2").  The  first 

subscript  refers  to  the  yard  and  the  second  to  the 
year . 


IiOCAI.  VARIAEI  .ES 

* 

« 

Main  Program 

ACT 

Variable  containing  the  characters  "ACT". 

AI.T 

Variable  contain inq  the  characters  "ALT". 

COAST 

Coast  (east  or  wort). 

CON 

Variable  cont aininq  the  characters  "COM". 

CONV 

Variable  containing  the  character  "C". 

dumi 

Dummy  variable  in  header  record  ot  SUBS  File. 

EAST 

Variable  containino  the  character  "E". 

FILLER( 3 ) 

Dummy  array  usea  in  reading  the  heaoer  record  ol  the 

SUBS  File. 

I 

DO- loop  inn ex. 

I HI  ANK 

d-eharactet  blank  space. 

ICONT 

Continuation  indicator. 

IDOL 

Double  precision  dummy  argument  in  subroutine  IEPROR. 

I DUMMY 

Dummy  argument  in  subroutine  I ERROR. 

I DU  Ml 

Dummy  variable  in  header  record  ot  SUES  File. 

IOUM2 

Additional  dummy  variable  in  heaoer  record  of  SUBS 

File. 

IDUM3 

Dummy  argument  in  subroutine  I ERROR. 

IDUM4 

Additional  dummy  argument  in  subroutine  I ERROR. 

I END 

Availability  ena  date  (mo/dy  yr). 

I EXTRA 

Argument  in  subroutine  REPORT. 

j 

I EYR 

Fiscal  year  for  this  availability. 

I GROUP 

Group  number  react  f rom  SUES  File. 

I GPP 

Group  number  to  be  reported  on. 

II 

Va r table  usea  as  the  option  number  in  a "computed 
go  to".  Also  a counter  used  to  determine  numbers 
of  yards  and  numbei  ot  years  to  be  processed. 

III 

A flag  set  to  "1"  when  there  is  UNOU  work,  other- 
wise set  to  "0". 

I MAT 

Percent  ot  direct  label  costs  toi  material. 

ionci: 

Argument  in  subrout ine  SKPGPP. 

IOPT( 1 4 ) 

Array  ot  options  tor  a given  ship  group. 

IPEPP 

Per iod  (tin s r ecoro ) . 
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Main  Ruxitam  (Continued) 


ISHPLl 


ispkc 


mm 


MATAl  T 


MATRKK 


MAY  ARP 


VAl  i’KS(  is) 


YI'RATK 


Ship  type  and  hull  number  - road  as  a sirxilo  variable 
trom  the  S)%BS  Kilo. 

Special  l/at ion  category. 

Availability  start  date  (mo  dy  yr). 

Type  ot  wotk. 

Variable  conumiiw  the  ehai  outers  ’W . 

Yard  name  i ead  1 1 an  SWBS  Kile. 

IX''- loop  nxiex. 

Subscript  designating  a o iven  yeai  in  the  1K1AG, 
IKIAGG,  II ’NOS,  a i vi  IUNOSS  an  ays. 

PO-loop  nxiex. 

HO- loop  irxiex. 

Vanal'lo  containing  the  letters  "LAST"  to  test  tot 
termination  ot  Matxlay  Rate  Peck. 

Fraction  ot  total  othei  direct  repait  woik,  t eao 
t r «.xr  SiVHS  (by  Grouc)  Kile. 

fraction  ot  total  other  direct  alteration  work,  te.v. 
t tom  SkVPS  (by  Groups ) Kile. 

Number  ot  yards  tot  which  there  are  mandav  rates. 

Nunitvr  ot  yards  to  lx-  pi  messed  tot  a q iven  oroup. 

Nuv.tx'i  ot  year  s to  tv  toix'tted  on. 

Yard  ownership  indicate!  (Navy  ot  private). 

Variable  contain ino  the  charactei  "r". 

Variable  containing  the  characters  "1'RI". 

Variable  containirxi  the  chaiacters  "KIT". 

Var  lal'le  containirxi  ttio  characters  "Rl'S" . 

Array  ot  nine  repo  it  aixi  nine  alteration  marxiays  r eao 
t r or  t fie  SWPS  Kile. 

Vat  lal'le  containirxi  the  character  "u". 

Mandav  rate  tot  a a iven  yard  and  year,  returned 
as  an  arourrent  m subrout  me  POLIAK. 

Vat  lal'le  used  to  test  tot  "ACT" , active  wvtk. 

Variable  ustxi  to  test  tot  "ALT",  altei at  ions. 

Var  lal'le  useo  to  tost  tot  "CON"  - tv.v  wot  c is  convei- 


Variable  oontainuxi  t fit'  oharactors  "MAR". 


Main  P roar am  l Continued) 


ZN 

znavf 

ZNAVK 

ZNAVWK 

ZNAVY 

ZNF 

ZNPT 

ZMIn 

ZPE 


Vanaole  containing  the  charactei  "N". 

Variable  used  to  test  for  "NT"  - see tot  is  Navy-east. 
Variable  useci  to  test  tor  "NV\"  - sector  is  Navy-west. 
Variable  used  to  test  for  "\’AV"  - ownership  is  Navy. 
Variable  containing  the  characters.  "NAV". 

Variable  containing  the  character.'-  "NK". 

Variable  containing  the  characters  "NFT". 

Variable  containing  the  characters-  "NU". 

Variable  containing  the  characters  "IT". 


ZPRI 

Variable 

useci 

to 

test 

for  "PR I"  - 

owner 

shio  is  pi  iv.it 

ZPRIF 

Var  tat  le 

used 

to 

t OS  t 

for  "PR"  - 

sec tot 

is  rt  ivate-ea 

ZPRIW 

Variable 

useci 

to 

test 

tor  "Pi,"  - 

sec tot 

is  private- we 

ZPW 

Variable 

containing  the  charactei 

s "PU" 

. 

ZRFP 

Var  table 

useci 

to 

test 

tor  "RF.P"  - 

repair  woi*k. 

Z RES 

Var  table 

useci 

to 

test 

tor  "PFS"  - 

t ytx? 

ot  work  is  NRT 

map 

Var  table 

useci 

to 

test 

for  " MAP"  - 

tVl-V* 

ot  work  is  MAP 

sut  rout  in,  DOMAK 


I 

I Phi 
: : JMMV 
ICXJM1 
I FYR 
I YD 
J 

OWN 

PRT 

YDRATF 


DO- loop  innex. 

Double  decision  gummy  argument  in  subroutine  l ERROR. 
Dummy  arqiirent  in  sub-rout  me  1 ERROR. 

Dummy  argument  in  subrout  ine  1 ERROR. 

Fiscal  year  tot  this  availabil lty. 

Yard  name  being  pi\\-oss.eu. 

DO- loop  index. 

Yarn  ownership  lnoicator  (Navv  oi  private). 

Variable  containing  the  ch.aractei  "p". 

Manciav  rate  tor  a given  vatu  am  year. 


Subroutine  GRP ID 


! 

! 


X VT 


! 


BIANK 

IGPOtiP 

,1 

K 


4-character  blank  space. 
Group  number  being  processed. 
DO- loop  index. 

Index  for  I/O  statement. 


Subrout  me  11  FIAT E R 

IPAGF  Variable  useo  to  increment  page  numbers  in  reports. 

NOPG  A tlaq  set  to  "2"  when  pages  are  to  be  numbered, 

otherwise  set  to  "1”. 


i 


Subroutine  IF.RRGR 


IDPL 

Pouele  precision  argument 
names . 

used  to  trans 

ter 

yard 

I DUMMY 

Argument  used  to  transfer  the  year  or  to 
which  error  message  to  write. 

oes 

innate 

IDC'Ml 

Argument  used  to  transfer  the 

year . 

IDUM2 

Argument  used  to  transfer  the 

group  number . 

N 

Error  number. 

S ub routine  RATE I P 


I 

I MAT 
J 

NOYARD 

WEAR 


Index  usea  tor  I/O  statements. 

Fercent  of  direct  labor  costs  for  material. 

Index  used  tor  I 0 statements. 

Number  of  yards  tor  which  there  are  ir.anday  rates. 
Number  of  years  to  be  reported  on. 


i 


Subroutine  REPORT 


DAY ( 9 ) 
D0L(9) 

I 

l PAY ( 9 ) 
IPBI. 


Array  ot  manoay  values  tor  a given  yard  and  year. 
Array  ot  material  costs  tor  a given  yard  ana  year. 
IX>- loop  l rxi ex . 

Integer  term  ot  the  arrav  DAY. 

Double  precision  riummv  argument  in  subroutine  I ERROR. 
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Sul'i out  ino  i'l'.POi.’T  (ContiniHHi) 


11X11,(9) 

[DUMMY 

II'UMl 

1PXTRA 

[(’la'll)’ 

I I 

I [OPT 

I I YAW 

IMA'!' 
IPPT(  19 

[St'Mt'l 

ttinoi. 

tUSUM 

i 

ist'Mni, 

I HUMPY 
. IYPAK 
K 

KK 

MAT 

NUMHI'P 
MY  DS 
MY  PAR 
lllXlt. 
USUM 

Sul  I (Hit  III' ' 

l PHI 
(DUMMY 


1 nt  ih|i> 

t t Ot 

the  nt 

l nv  DOl 

• 

Dummy 

at  duiiuMit 

in  subrout  ino 

IPRRUR. 

Dummy 

.iiiiumont 

in  nul  l out ino 

IPRRCiR. 

Plan  : 

;ot  to  "1"  t oi  pi 

i nt  in. 

; tlM'iw  data. 

, OtllC 

M wiu.o 

not 

to  "0" 

• 

Vat  l.ii 

ilp  lined 

to  1 1 .in: 

: • 1 1 ■ t dioup  nuiihoi 

t O i 

'•III  1 out 

i r.< 

II  I POP 

• 

Sill  VCt 

lot  lin'd 

to  do:'.  1 

itlOtl'  i 

, ] ivon  o|  t 

ion. 

Var iah 

' 1 c urea 

to  t I . .1 

i:  l ot 

t he  opt  ion 

t O 5 

an  -I  out 

mi 

1 1 l-'l-X  ip 

• 

Vut  tul 

ilp  UllPC! 

t O t 1 . Ill 

• h'i 

i yarn  nait’i 

to  ‘ 

an  rout 

m< 

IPKU’P 

• 

I’d  I’i'r 

it  ol  dll, 

■Ot  PlPoi  edit 

u.  tor  r.  .it  vi 

M 1 . 

At  i ay 

Ot  opt  loll).  IOI  ,1 

(\  l von 

uh  it  oi  out 

ino. 

1 l!(Vt 

Pilot  or 

Vt:.  Ill 

t Ik  JUU..1I10:'.  ot  doll 

.it  s. 

D i it  v t 

1 atx)  i o 

out:  to 

i 1 IN(  Tv 

in  ttiouu.unuv  ol 

dOll.l 

i . 

1 nt  nor 

■i  tour  ot 

latxir 

luandny 

:*■  tot  UNOl\. 

IX>-  loot.’  index. 

Tot  n 1 

1 aliOt  dir 

,t  tOI  ,1 

11  Slip.: 

Tot.il 

intoi't  oi 

v!:'  tot 

mat  i a 

Ml  . 

Yo.it  t 

,i  ■ ino  i oi  mi  t po  on 

• 

I nuox 

noon  lot 

I 0 u.t.i 

t i id  lit 

uv-lcx 

w ! ! 1*  > * ' X 

Pi  roc 

t Libor 

I'lVl  u 

loi  IV, 

lit  oi  i .i  1 in 

t hOUSoUdU. 

Ol 

dl'l  1,11 

Count  i 

-i  tot  number  ot 

1 o|«H  t 

r.  tvt  p.itir, 

Mllivl  X '1 

ot  yard: 

i hoi  no 

trim  t 

ocl  on. 

Mi  nr  I 'i  ■! 

ot  yo.ii : 

-,  loin.’ 

I OI  X '1  t 

1 H 1 I'M. 

P i root 

1 . iU'i  cost  n.  1 oi 

1 INK  V. . 

1 . 'i '( ’i 

IUiintl.iV: ' 1 

OI  l IMl  Xk 

iK  U II ;P 

Poul  1 < • uociuion  uunay  ntuuiiunt  In  subroutine  II  1 •H'i  . 
PttllM'V  If  • (HIIH'flt  111  . :illH  Otlt  1I1< ' I Pi'll  'K  . 


Subroutine  FKPGRP  (Cont  mutxi ) 


IDUM1 
IDHM2 
I FYF 
I GROUP 
IONCF 

l SHULL 


ITYPWK 
I YD 


Dummy  arqument  in  subroutine  IEPROR. 

Dummy  argument  in  subroutine  IEPROR. 

Fiscal  year  for  tins  avai labil ity. 

Group  number  read  from  SwBS  File. 

Flag  set  to  "1"  when  tile  has  been  rewound,  otherwise 
set  to  "0". 

Ship  type  ana  hull  number  - reao  as  a single  variable 
t r om  the  SVvI IS  F i 1 e . 

Type  of  work. 

Yard  name. 


S ubrout ine  SUM 

I 

I FYR 

I I 

1 1 1 


I SAVF 


1 YD 


JJ 

JOPT 

K 

I, 

DDOI, 


UStlM 

VAI  .UPS  ( 1H) 


Subscript  used  to  designate  a given  yard  in  the  UYARD, 
AKRAYD , and  ARRAYM  arrays. 

Fiscal  year  tot  this  availability. 

Subscript  used  to  designate  a given  option  in  the 
U ARRAY , ARRAY  1 , anti  ARRAY  2 at  i ays. 

Flag  set  to  "1"  when  there  is  DNt\\  wotk,  otherwise  set 
to  ”0”. 

Flag  set  to  "1”  when  UNOW  work  is  summed,  otherwise 
set  to  "0". 

Yard  name  being  processed. 

Subset  ipt  used  to  designate  a given  year  in  the 
ARRAY  1 , ARRAY 2 , AKRAYD,  ARRAYM,  UARRAY , and  UYARD 
arrays. 

DO- loop  index. 

Opt  ion  number. 

DO- loop  index. 

DO- 1 oop  l ndex . 

Material  dollar  value  tor  UNOw  tor  a given  option  and 
a given  year. 

Labor  manday  value  toi  UNOW  foi  a given  option  ana  a 
given  year. 

Array  ot  repair  aixl  alteration  laboi  manday  values  tot 
a given  opt  ion  anti  a given  year. 

Manday  rate  tor  a given  yard  am  year. 


1 d 


YDRATF 


Subt  out  tne  T1TI.K 


l index  useu  lot  l 0 st at twent s . 

I KXTRA  I'iuo  net  to  "1"  tot  pi  int  mu  heauinus  tot  I'Nt'Vv  data 

otherwise  not  to  "0". 

IFYK  Fiscal  yeat  tot  tins  ava t lubt 1 it y . 

IttROtiP  I’t  oup  mmibot  . 

ISWFSC-')  At  I ay  ot  SUbS  tutmbets. 


The  card  inputs  (unit  5)  tor  the  sample  run  requested  that  reportinq 
be  projected  tor  one  year,  19ti2.  The  percent  ot  direct  labor  costs  for 
material  was  net  inert  as  25.  Monday  rates  were  given  tor  eiqht  Navy 
shipyards  and  one  rate  was  used  for  the  private  yards.  All  options 
(shipyard  ownership,  coastal  location,  and  type  ol  work)  as  well  as  yard 
siromar ies  were  requested  tor  Group  1.  Various  combinations  ot  options  ano 
varus  were  requested  tor  the  other  groups.  The  SWBS  ( t >y  Groups)  Data  File 
(unit  12)  was  list'd  as  input  to  RFPWRS.  A sample  ot  this  tile  may  be  found 
in  Sect  ion  ti.  1. 1.2  . 

The  sample  output  (unit  t> ) shows.  Direct  l.ubor  Mondays,  babot  Costs, 
and  Material  Costs,  projected  toi  SwRS . Reports  pi  oduceo  show  bteakdowns 
by  sector  and  wot  k categor  ies.  All  opt  ions  were  requested  toi  Group 
1,  a group  ot  all  CGN's.  The  following  categories  were  reported  on: 

Work  m Navy  Yards 
Fast  Coast  Navy  Work 
West  Coast  Navy  Wot k 
Conversion  woik 
Act ive  Ship  Work 

There  was.  no  private  work  tot  this  group,  so  the  following  three  refxirts 
we  re  cm  i 1 1 ed ; 

Wot k in  Dr ivate  Yards 
Fast  Coast  Pr ivate 
West  Coast  Pr ivate 

Ot  the  wot k categories  requested,  the  following  cotegor ies  contained  no 
data  tot  the  required  group  and  year: 

Reserve  Ship  work 
MAP  work 

Any  request  tor  which  there  was  no  data  produced  an  ottot  message  (unit  tl) 
which  gave  the  option,  yeat  , and  otoup  numbet . Three  yard  simiwit  ies 
were  requested,  but  there  was  no  data  tor  long  Reach, 
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Group  2 was  dot  mod  as  an  inaiviaual  ship  ana  a yard  summary  was  the 
only  reauest.  Output  included  the  projection  of  all  work  for  the  CGN  3, 
in  Puget  Sound  Naval  Shipyard  for  1982.  A group  total  is  always  produced 


ana  includes  all  work  projected  for  that  group  of  ships  for  the  given 


year,  in  this  case  the  group  total  and  the 
identical  as  any  work  projected  for  the  CGN  35 


Puget  Sound  summary  were 
is  performed  at  Puget  Sound 


Naval  Shipyard. 


die  reports  for  Group  3,  a group  of  carriers  (CV  59  through  C V o2), 
were  presented  to  show  a spread  of  work  in  both  Navy  and  private  shipyards 
ana  the  totals  tor  the  individual  yards. 
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00/02/27 

OMPPS 

sample 

RUN 

62 

CHASN 

169.60 

169.60 

169.60 

159.  60 

159.60 

NORVA 

IRQ  • 7b 

140.76 

140.76 

140.76 

140. 76 

PHI  LA 

146. 76 

146. 76 

146. 76 

148. 76 

146. 76 

PTSMH 

163.04 

163.04 

163.04 

153.04 

153.04 

LBECH 

143.26 

143.26 

143.26 

143.28 

143.26 

MARE 

160.04 

160.04 

160.04 

160.04 

160. 04 

PEARL 

161.66 

161.66 

161.66 

161.56 

161.56 

PUGET 

137.28 

137.28 

137.2  8 

137.28 

137.28 

PRI  V 
LAST 

160.00 

160.00 

160.00 

150.00 

1 50.  00 

1 NAV  NE  NM  PR  A PE  PM  CON  ACT  RES  MAP 
NON VA  PUGET  LBECH 


2 

NOKVA  PUGET  LBECH  0 11  NMPAC  CHASN 

3 NAV  NM  PR1  PE  PM  CON  ACT  RES  MAP 
NORVA  PUGET  LBECH  0 11  NMPAC  CHASN  0 06 
-1 


25 


OEPQ  ,r  M A I NT  E NANCE  PLANNING  A NO  PROGRAMMING  SfST£M 
MISSION  ESSENTIAL  MOR< LOAD  REQUIRE»CMTS 
BT  SNBS 


MATERIAL  COSTS  1AGI 

ctmoitsanos  or  oollarsi 


0?9<i.O*O  *f  rJ  Jj»l  •*  *r 


MBB 


Unit  ri  - Error  Messages 


• * • NO  PRIVATE  YARD  WORK  FOR  1982  FOR  GROUP  1 

• • * NO  EAST  COAST  PRIVATE  TARO  WORK  FOR  196?  FOR  GROUP  1 

• • • NO  WEST  COAST  PRIVATE  TARO  WORK  FOR  198?  FOR  GROUP  1 

• * * NO  RESERVE  SHIP  WOPK  FOR  198?  FOR  GROUP  1 

• • • NO  MAP  WORK  FOR  198?  FOR  GROUP  1 

• • • NO  DATA  FOR  LBECH  FOR  GROUP  1 

• * * NO  DATA  FOR  NORVA  FOR  GROUP  ? 

• * * NO  DATA  FOR  LBECH  FOR  GROUP  ? 

• * * NO  DATA  FOR  0 11  FOR  GROUP  ? 

• • • N 0 OATA  FOR  NWPAC  FOR  GROUP  ? 

• * * DATA  FOR  CHASN  FOR  GROUP  ? 

• * * NO  WEST  COAST  NAVY  YARD  WORK  FOR  1982  FOR  GROUP  3 

• * • NO  CONVERSION  WORK  FOR  1982  FOR  GROUP  3 

• * * NO  RESERVE  SHIP  WORK  FOR  198?  FOR  GROUP  3 

• • • NO  HAP  WORK  FOR  1982  FOR  GROUP  3 

• * * NO  OATA  FOR  PUGET  FOR  GROUP  3 

• * * NO  DATA  FOR  LBECH  FOR  GROUP  3 

• * * NO  DATA  FOR  NWPAC  FOR  GROUP  3 

• • • NO  DATA  FOR  CHASN  FOR  GROUP  3 

• • • END  OF  FILE  ENCOUNTERED 


6.4  PROGRAM  REPMAT 


6.4.1  DESCRIPTION 


REPMAT  is  a report  generator  that  produces  summary  reports  of  pro- 
jectea  workloads  for  the  various  production  shop  ana  Ship  Work  Breakdown 
Structure  (SWBS)  categories.  Each  report  contains  a 10-by-20  matrix  whose 
rows  reflect  the  mandays  projected  for  the  SWBS  categories  and  whose 
columns  show  the  mandays  in  shops.  The  shops  consist  of  the  19  proauction 
shop  categories  ana  the  SWBS  represents  the  nine  single-aigit  SWBS  cate- 
gories. Shop  65  (Mooule  Repair  ana  Maintenance  Facilities)  has  been 
aeletea  from  the  matrix  for  reporting  purposes,  since  Charleston  is  the 
only  shipyard  that  uses  it.  Historical  aata  collected  to  aate  from 
Charleston  Shipyara  showea  no  work  performed  in  that  shop.  In  the  future, 
if  work  is  projected  for  shop  65,  it  will  be  combined  with  shop  68. 

The  19  shop  categories  referred  to  in  these  reports  are  as  follows: 


Shop  Number 
06 
11 
17 
23 
26 
31 
36 
38 
41 
51 
56 

64 

65 
67 

71 

72 


Shop  Name 
Central  Tool  Shop 
Shipfitter  Shop 
Sheetmetal  Shop 
Forge  ShoD 
Welding  Shop 
Inside  Machine  Shop 
Weapon  System  Shop 
Outsiae  Machine  Shop 
Boiler  Shop 
Electric  Shop 
Pipe  and  Copper  Shop 
Woodworking  Shop 

Moaule  Repair  and  Maintenance  Facilities 
Electronics  Shop 
Paint  Shop 
Rigging  Shop 
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dl  Foundry  Shop 

94  Patternmaker  Shop 

99  Temporary  Service  Shop 

Those  areas,  in  which  productive  work  is  performed,  that  are  not  covered 
by  these  categories  are  referred  to  as  "other  direct." 

The  following  nine  SlvBS  categories  are  referred  to  in  these  reports: 

1.  Hull  Structure 

2.  Propulsion  Plant 

3.  Electrical  Plant 

4.  Command  and  Surveillance  (Shipboard  Installations) 

3.  Auxiliary  Systems 

o.  Outfit  and  Furnishings 

7.  Armament  (Shipboard  Installations) 

d.  Integration/Engineering  (Shipboard  Response) 

9.  Ship  Assembly  ano  Support  Services 

The  program  uses  as  input  the  SWBS-Shop  Matrix  File  created  by  the 
crodram  XPLODF  (Volume  5 - Synthesizer  Subsystem),  a Group  Definition  Cara 
Deck,  and  input  cards  defining  report  options.  Reports  can  be  generated 
for  one  of  three  options:  (1)  repair  manoays,  (2)  alteration  manoays,  or 
(3)  total  manoays.  Data  are  reported  first  by  yard,  then  within  a yard  by 
ship  grouds,  ana  within  groups  by  year. 

A Grouo  Definition  Card  Deck  defines  the  ship  grouDinas  which  may 
be  reported  on.  Ship  groupings  are  defined  by  the  user.  A aroup  may 
consist  of  a single  ship,  a ship  class,  functional  ship  groupings,  or  anv 
combination  of  these.  For  each  grouping  there  mav  be  as  many  as  six  sets 
of  lower  ana  up>per  ship-tyce/hull-number  range  combinations.  For  example, 
surface  combatants  might  be  described  by  the  following  groupings:  CG  4 
through  CGN  39,  CV  19  through  CVN  70,  DD  714  through  DDC  41,  FF  1037 
through  FPG  7,  and  CVT  lb  through  CVT  16. 

A aroup  number  is  assigned  to  this  aroupino.  This  group  number  is 
compared  to  the  one  recuestea  on  the  Yard  Option  card.  It  tnere  is 
agreement,  the  ship  type  and  hull  number  are  examined.  Those  that  fall 
within  the  grouping  are  reported  on.  The  capability  to  select  various 
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groupings  means  that  reports  can  tv  mace  on  broad  categories,  six'll  as  all 
surface  ships,  or  to  the  detail  of  a single  ship  type  and  hull  number. 
Provision  has  been  made  for  100  ship  groupings. 

A type  A Yard  Option  card,  the  t irst  of  two  to  describe  the  various 
options,  contains  the  shipyard  name  and  the  word  "AU,"  it  the  entire  yard 
is  to  be  reported  on.  Pot  the  type  ot  work  desired,  the  word  "RFP" 
tor  repairs,  "ALT"  tor  alterations,  or  "TOT"  for  total  ot  repairs  and 
alterations  must  tie  requested.  This  option  must  agree  with  the  option 

useo  in  creating  that  specific  yarn  on  the  SWBS-Shop  Mattix  File.  in 

audition,  the  years  to  be  reported  on  are  input  on  this  card. 

The  second  Yard  Option  card,  a type  B card,  contains  the  shipyard 

name  and  the  group  numbers.  A Yard  Option  Terminator  card  follows  the 

t inal  type  B Yard  Option  card.  A sample  input  set-up  is  shown  in  Figure 
0.4-1. 

Due  to  the  tremendous  amount  ot  data  involved,  it  is  feasible 
to  execute  the  program  XPIODF  creating  a SWBS-Shop  Matrix  File  toi  only 
two  or  three  yards  prior  to  generating  reports.  It  is  unlikely  that  one 
would  store  SWBS-Shop  Matrix  data  for  all  shipyards,  as  each  Depot  Mainten- 
ance Assignment  File  (DMAF)  availability  produces  21  data  recorus  anil 
requires  a tremendous  amount  of  machine  storage  space,  when  processing  a 
yard,  the  program  XPLODF  reads  a ship  availability  t torn  the  DMAF  atxl 
produces  one  record  tor  each  of  the  20  shops  within  the  shipyard.  This 
record  shows  the  mandays  that  the  shop  will  expend  in  the  nine  SWBS 
categor ion. 

All  yard  information  is  read  at  the  booming  ot  the  prog  ran.  and 
is  stereo  in  arrays.  The  t irst  record  of  the  SWBS-Shop  Matrix  File  is 
examined.  It  that  yard  is  not  required,  the  entire  yard  is  skipped.  The 
subroutine  SUM  is  cal  led  to  process  the  data  tor  each  record  containing 
tin'  year  and  the  ship  type  requested.  As  a yard  is  completed,  subroutine 
RFPORT  is  called  and  data  are  extracted  tor  reports  by  yeai  a no  group 
number.  Figure  b.4-2  shows  a hierarchical  diagram  ot  RF.DMAT. 
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MAIN  PROGRAM 


Fiqure  6.4-2  - PEPMAT  Hierarchical  Diagram 
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Main  Program 

The  function  of  the  main  program  is  to  identify  and  collect  data  for 
summary  reports  of  projected  workloads  for  the  various  production  shops 
ana  Ship  Work  Breakaown  Structure  (SWBS)  categories.  Reports  may  be 
cjenerated  for  repair  mandays,  for  alteration  manaays,  or  tor  total  mandays 
The  program,  uses  as  input  the  SVvBS-Shop  Matrix  File  created  by  program 
XPLPPE  (Volume  5 - Synthesizer  Subsystem),  ano  input  cards  oet inina  the 
report  options.  In  audition,  a Group  Definition  Data  Base  is  created  from 
the  Group  Definition  Card  Deck. 

Subrout ine  BANNER 

This  subroutine  writes  a title  page  with  the  words  "SWBS-SHOP 
REPORTS".  The  date  and  identify ina  information  appear  in  the  upper  left 
corner . 

Subroutine  COMPAR 

Subroutine  COMPAR  is  called  for  each  group  of  20  shop  records  with 
the  designated  fiscal  year.  This  subroutine  compares  the  groups  numbers  to 
be  processed  for  a given  yard  with  the  array  of  group  numbers  in  the  Group 
Definition  Data  Base.  It  there  is  agreement,  the  ship  type  and  hull 
number  are  examined  to  determine  whether  they  fall  within  the  lower  and 
upper  limits  of  any  of  the  selected  groupings.  Matching  qroup  numbers  are 
stored  in  the  JGFOUP  array  for  use  in  subroutine  REPORT.  A flag  is  set 
when  a match  has  been  found  and  the  data  processing  proceeds;  otherwise  an 
alternate  return  is  made. 

Subrout ine  HEADER 

This  subroutine  writes  report  identification  information  in  the  upper 
left  corner  of  each  page  and  the  page  number  in  the  upper  right  corner. 
SWBS-Shop  reports  are  identified  by  the  number  "62"  followed  by  the  yard 
number  and  type  of  report.  Yard  numbers  are  assianeo  in  subroutine  YDNO 
and  are  carried  in  the  argument  list  as  "in".  The  identifications  for 
type  of  work  are  as  follows: 
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01  for  repairs 

02  for  alterations 

03  for  the  total  of  repairs  and  alterations 
Therefore,  62-01-02  would  represent  a report  of  total  alteration  mandays 
tor  Charleston. 

Put-routine  I ERROR 

The  subroutine  I ERROR  is  calleo  to  indicate  lack  of  aata  in  any 
requested  ship  groupinq.  If  the  SWBS-Shop  Matrix  File  was  not  created  tor 
an  option  that  was  requested  (repairs,  alterations,  or  total),  an  error 
message  is  written  on  unit  7. 

Subroutine  NOSHIP 

The  WSHIP  subroutine  determines  the  number  ot  ships  in  a oiven 
group  and  writes  the  ship  type  ana  hull  numbers  at  the  top  of  each 
report  page. 

Subroutine  REPORT 

Using  the  yard  name,  the  option,  and  the  arrays  of  data  collected 
by  other  subroutines,  subroutine  REPORT  extracts  the  data  elements  for  the 
inaiviaual  ••  rts.  Data  are  stored  in  separate  arrays  tor  each  ot 
the  reauirea  . art.  Tests  are  made  to  ensure  that  there  are  data  tor  each 

ot  the  desired  gioups.  If  all  work  in  an  entire  yard  has  been  calculated, 

the  total  is  stored  as  the  first  "aroup  number"  in  the  data  array  and  must 

be  extracted  as  such.  The  values  for  a given  yard,  group  number,  ano  year 

are  transferred  to  the  subroutine  RFPl  for  final  output. 

Subroutine  RFP1 

Subroutine  RFPl  uses  the  manaay  values  for  a given  vara,  group  num- 
ber, ana  year  as  extracted  by  subroutine  REPORT  and  writes  them  in  a 
report  format. 
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Subroutine  SFAKCH 


1 Subroutine  SEARCH  is  useo  to  determine  whether  a yarn  is  to  be  pro- 

• cessea.  The  yara  name,  read  trocr.  the  SWBS-Shop  Matrix  File,  is  compared 

with  the  array  of  vara  names  reouested  by  input  oata.  It  there  is  no 
match,  subroutine  SKPYD  is  calico  to  position  the  tile  at  the  oeqinnino 
ot  the  next  yard  and  an  alternate  return  is  made. 

Subrout  me  SKPSIV 

This  subroutine  is  useo  to  skip  all  records  on  the  SWES-Shop  Matrix 
File  tor  a given  sector.  As  each  record  is  reao,  it  is  checked  tor  a 
separator  record  which  is  a record  ot  all  "9's".  Alter  the  separator 
record  is  encountered,  the  proqram  proceeds  to  the  next  sector. 

Subroutine  SKEW 

Subroutine  SKPYD  is  useo  to  skip  all  recoros  on  the  SUPS-Shop  Ma- 
trix File  relating  to  a given  varo.  As  each  iccoro  is  teao,  the  yaru 
name  is  ccmoareo  with  the  name  ot  the  yard  to  be  skipped.  when  a new 
varo  name  appears,  the  tile  is  backspaced  and  the  program  continues. 

Subroutine  SUM 

This  subroutine  silts  the  manoay  values  tor  the  nine  SUBS  categories 
ano  the  20  shops  ana  stores  them  in  at  rays  accoroing  to  oroup  number. 

There  is  an  array  for  each  ot  the  live  years.  Subroutine  SUM  is  called 

with  one  ot  three  options:  (1)  to  sum  the  values  for  given  groups  but 
not  for  an  entire  yara;  (2)  to  sun'  the  values  tor  an  entire  yara  but  not 
tor  groups;  (3)  to  sum  the  values  ter  an  entire  varo  as  well  as  tor  oiven 
groups.  In  these  data  arrays  the  that  subscript  refers  to  the  a roue 
number,  the  second  subscript  refers  to  the  nine  sinolo-oioit  Siy-s  categor- 
ies, ana  the  third  subscript  rotors  to  the  20  shops.  It  an  entire  yarn  is 

processeo,  the  data  are  stored  as  the  tnst  "group  number"  in  the  array 
ano  later  treateo  accordingly. 
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Subroutine  TITLE 

This  subroutine  is  called  by  subroutine  REPORT  with  an  argument 
designating  identifying  notation  to  De  written  with  the  data.  The  options 
are:  (1)  TOTAL  DIRECT  RFPAIR  HAND AYS  BY  SUBS  AND  SHOPS,  (2)  TOTAL  DIFICT 
ALTERATION  MANDAYS  BY  SUBS  AND  SHOPS,  (3)  TOTAL  DIRECT  TEPAIR  AND 
ALTERATION  MANDAYS  BY  SUBS  AND  SHOPS. 


Subrout  me  YEAR 

This  subroutine  checks  the  fiscal  year  tor  a given  data  record  with 
the  array  of  years  requested  by  input.  It  there  is  no  agreement,  transfer 
is  maae  to  that  portion  of  the  program  that  reads  the  next  group  of  oata 
records. 


Subroutine  YDNP 

This  subroutine  assigns  a number  to  each  yarn  tor  report  identifica- 
tion. For  example:  Charleston  is  01,  Long  Beach  is  02.  The  subroutine 
argument  "ID"  is  transferred  to  subroutine  HEADER  with  this  identifying 
number  to  be  used  for  report  identification. 


The  following  set-up  is  used  to  run  the  REPMAT  program  on  the  IBM 
360/370  comouter: 


0.4.3  INPUTS 


Carci  inputs  are  made  using  unit  5.  The  format  for  these  cards  is 
shown  in  Section  0.4.3. 1. 

Unit  5 - Card  inputs  which  (1)  oetine  ship  qroups  by 
setting  lower  am  upper  limits  on  ship  type  ana 
hull  number,  (2)  give  identifying  report  informa- 
tion, (3)  set  the  desired  options  and  years 
required,  (4)  determine  which  yards  and  qroujis 
are  to  be  reported  on. 

The  following  additional  unit  is  used  to  input  information  from 
a oir.k  file  createa  by  the  program  XPLODE: 

Unit  8 - SVvBS-Shop  Matrix  Pile. 

The  format  for  this  file  is  given  in  Section  0.4. 3. 2. 


6. 4. 3.1  Unit  5 - Card  Inputs 


Group  Definition  Cards.  The  Group  Definition  Deck  Describes  the  various 
ship  groupings.  Two  cards,  a type  A and  a type  B,  are  reauired  to  define 
each  group.  There  may  be  as  many  as  100  groups.  A group  definition 
terminator  card  follows  the  last  type  B group  definition  card. 


Type  A Group  Definition  Card 


Variable  Name 


Format 


Group  Number 

Ship  Set  1 

Ship-Type/Hull-Number 
(Lower  Bound) 

Ship  Set  1 

Sh ip-Type/Hul 1-Number 
(Upper  Bound) 

Ship  Set  2 

Sh ip-Type/H  u 1 1-N umbe  r 
(Lower  Bound) 

Ship  Set  2 

(Upper  Bound) 

Ship  Set  3 

(Lower  Bound) 

Ship  Set  3 

(Upper  Bound) 


IGRPNO(I) 
GRPDEF (1,1,1) 


GPPDEF (1,1,2) 


GPPDEFt 1,2,1) 


GRPDFF( 1,2,2) 


GRPDEF ( 1,3,1) 


GRPDEF (1,3,2) 


Type  B Gi oup  Pot  uut  ion  Cat d 


V'.it  Kill  1 o Nojr.u 

Poo.  01  IPt 

ion 

F it*  hi 

Fot  mat 

GRPDFFl  1 ,4,1) 

Shi)'  Set 

sh  n'-'iNin 

4 

' mil  l- 

l l.OWOI 

Numlxu 

Ho  unit ) 

4- In 

Atl 

gppdffi  i ,4,2) 

Ship  Sot 
Sh  it'-'lVi'i 

4 

■ Hu  1 1- 

lPPJX'1 

Mi  mil  oi 

Hounu) 

JO-27 

AS 

ORPPFFl  1 , •>,  n 

Ship  Sot 

s 

ll.OWOI 

Hound) 

U-40 

AS 

dRPPFF(  l , S,2) 

Sh ip  Sot 

lJ 

Ulp}>M 

Hound ) 

44 -‘>1 

AS 

grppffi  i ,b,  n 

Ship  Sot 

(> 

{ l i 'Wl ' I 

Bound) 

>/'»>4 

AS 

GRPPI  Fl  1 

Ship  Sot 

lUptx'i 

Hound) 

t»8-  / S 

AS 

Gt oup  Pot  m 1 1 ion  P< vk 

Toi  in  mot  oi 

l\lt  U 

\ .it  i.il'le  N.inio 

Pt'ooi  ipt  : 

ion 

l lohi 

Foi  nut 

’IVi  iiun.it  oi 

Toimmatoi  ot  S 
IV!  mit  ion  Pook 
nou.it  n o nui’iPoi 

h io  ill  oup 
t any 

) 

1-  i 

1 1 

Uient  1 1 io.it  ion  Pm u 

V.ii  l.it'lo  N.inio 

Posoi  ipt  1 

ion 

Field 

Foi  nut 

PATF 

P.lto  t ll'O 

dv  yi  ) 

1-12 

1A4 

a'Mt'NT 

Comment 

1 14 

v\4 

a 


”lT 


v 


I 


Vara  Option  Caras.  There  are  two  caros  tor  each  required  vara:  a 
type  A card  which  describes  the  options  and  years  and  a type  B caro  for 
recuesting  the  group  numbers.  A Yard  Option  terminator  caro  follows 
the  final  type  B Option  card. 


Type  A Yard  Option  Card 


1 50 


Variable  Name 

Description 

Field 

Format 

I YDS EL 

Yarn  name 

1-5 

A5 

ALL 

The  punch  characters  "ALL" 
will  sum  entire  yard 

8-10 

A3 

RFP 

The  punch  characters  "REP" 
will  compute  repairs  only 

13-15 

A3 

ALT 

The  punch  characters  "ALT" 
will  compute  alterations 
only 

1 8-20 

A3 

TOTAL 

The  punch  characters  "TOT" 
will  compute  total  of  re- 
pairs ano  alterations 

23-25 

A3 

I YEAR ( 1 ) 

2-oigit  year 

1 

o 

12 

I YEAR ( 2 ) 

2-dig  it  year 

33-34 

12 

IYFAR( 3) 

2-digit  year 

36-37 

12 

I YEAR (4 ) 

2-digit  year 

39-40 

12 

I YEAR ( 5) 

2-diqit  year 

42-43 

12 

rpe  B Yard  Option  C 

ard 

Variable  Name 

Descript  ion 

Field 

Format 

I YDS  FI. 

Yard  name 

1-5 

A 5 

IYDGRP1 1-25) 

Group  numbers  to  be 
processed 

7-80 

25( IX, 1 . 

i Option  Terminator 

Card 

Variable  Name 

Descr  i£t  ion 

Field 

Format 

LAST 

Eno  card  ot  input  data 

1-5 

A 5 

An  example  ot  an  input  deck  tor  PFPMAT  is  shown  in  Figure  b .4-1 . 


lJI 


3 


6. 4. 3. 2 Unit  6 - SKBS-Shop  Matrix  File 

The  SwBS-Shop  Matrix  File  is  a binary  tile  so  the  format  is  given 
only  as  a quiae  to  the  size  ot  the  variables. 

Header  Recoro.  The  format  tor  the  Header  Record  is  described  below.  The 
arrays  of  yards  and  their  options  are  dimensioned  for  13. 


Variable  Name 

Descr lpt ion 

Position 

Format 

OWN 

Yard  ownership  indicator 

1 

(Al) 

COAST 

Coast 

2 

(Al) 

IYEAR 

First  fiscal  year  ot  LRPS 
project  ion 

3 

(12) 

IYDSFC ( 1 ) 

Yard  name 

4 

( A5) 

IOPTS(l) 

Option  flag 

a 

(Al) 

IYDSFC ( 2 ) 

Yard  name 

b 

(AS) 

IOPTS ( 2 ) 

• 

Option  Flag 

• 

7 

(Al) 

• 

IYDSFC ( 1 3 ) 

• 

• 

Yard  name 

2d 

• 

• 

(AS) 

IOPTS (13) 

Option  flag 

29 

(Al) 

\ 


Manriay  Record.  There  is  one  Manday  Record  for  each  of  the  20 
each  six-month  period  of  an  availability. 


shops  for 


Variable  Marne 

Description 

Position 

Format 

ISi.nJLL 

Ship- type/hull-number 

1 

( A8 ) 

ITYPWK 

Type  work 

2 

(A3) 

IYD 

Yard 

3 

(A5) 

I GROUP 

Group  number 

4 

(13) 

IFYR 

Fiscal  year  (this  record) 

5 

(12) 

OWN 

Yard  ownership  indicator 

6 

(Al) 

COAST 

Coast 

7 

(Al) 

IPERD 

Period  (this  record) 

8 

(ID 

ICONT 

Continuation  indicator 

9 

(Al) 

ISTRT 

Availability  start  aate 
(mo/dy/yr) 

10 

(16) 

IFND 

Availability  end  date 
(mo/dy/yr) 

11 

(16) 

I SPEC 

Specialization  category 

12 

(A3) 

VALUES (1-9) 

Mandays  for  SWBS  for  this 
Shop 

13-21 

(9F10.2) 

I SHOP 

Index  used  to  iaentify  the 
shop  number 

22 

(12) 

Figure  6.4-3  shows  an  example  of  a SWBS-Shop  Matrix  File. 


The  following  units  are  used  by  KEPMAT  for  generating  hard-copy 
output: 

Unit  6 - Summary  SWBS-Shop  Matrix  reports. 

Unit  7 - Error  messages. 

Section  b.4.7  gives  a sample  of  the  SWBS-Shop  Matrix  reports. 


0.4.5  PROGRAM  M ST INC 


progr  am  r*  fmau  input,  output , t apf  nmnput, tap*  b -output ,t *pt  a, 

l T APF  T) 


RFPMAT  is  a RFPORT  GfNFRATOR  MMICN  GIVFS  TOTAL  OIRFCT  LABOR 
MANOAYS  IN  IMF  FORM  CF  A SMBS-SMOP  MATRIX 
PR  0GP  A MM  F R JFAN  ST  LAURENT  COPF  1AS.T 

MRITTfN  APRIL  10/h 

PRIOR  TO  PUNNING  Rf  PMAT , PROGRAM  XPLOOF  MUST  CRFATf  A 
SMBS  -S  HOP  FRF  FOR  GI  VF  N TAROS  ANO  OPTIONS 
TMF  OPTIONS  ARF I 

RF PAIRS,  ONLY  - JOPT  a l 

ALTFRAT  IONS,  ONLY  - JOPT  « ? 

TOTAL  OF  ALTS  ANO  RF  PAIRS  - JOPT  = 3 


RF  PORTS  MAY  Bf  PRO  DU  OF  D FOR  SFLffTfD  GROUPS  OF  SHIP  CLASSFS 
FOR  A GIVEN  YARD  AND  Y F A R 

TMFRf  IS  ALSO  A PROVISION  TO  SUM  ALL  DATA  FOR  A YARO 
SFT  TAIL  - 1 

DATA  MAY  OF  Rf  PORT  F 0 CN  FOR  AS  MANY  AS  N Y J ARS 
IHF  RF  QU I RF  0 YFARS  ARF  INPUT  AS  - IYFAR 


TAPf  ASS  I GNMf  NTS 

TAPFN  - INPUT  - CAROS 
T APE  N - OUTPUT 

T APF  7 - OUTPUT  - FRRORS,  ONLY 

TAPFft  - INPUT  OF  MATRIX  DATA  F I L F CRFATfO  0>  PROGRAM  XPIODF 
' RF  AL  • A GRPCFF,  I Y OSF  L , I Y 0 , LAST.TyPP,  ISMUI  l , ( YARD,  ISFP 

iNTFGfR  GRPOFF 

COMMON/IOAT  A/  G R POF  F ( t 0 0 , b , ? ) , ITTSIl  UcO  , T Y AR  0 ( l T ) 

COMMON/ WORK/ A RRAYM  #?0»  , ARR  A Y ? < ? N f B # [•  0 ) , A R R A V 3 ( ON  . B . ? 0 I , 

l ARRAY4C  ?Nvqv?C>  . ARR A Y S ( JS , B , TQ ) t V Al  Uf  S f B , ?0  ) 

COMMON/RFP/  ISMlPtlOO.b, /> , I HUL L t 1 0 0 , b , ? I 

COMMON/MISC/I  YOGRPC  1 »*  , , JGROUP<?M,  Kf.ROLIP  < , HGROUPf/M 

COMMON/IOf  NT/COMFNT  < ‘»  ) , PA  TF  I 3> 

CONMON/VAL/  VALVR<R,?0>,  SUMMRS(?0),  SUNSMPIB),  TOT 
0 1 M f NS  I ON  NYFARSMSF,  IVfAR(lS,M,  IYPYR<N» 

OINFNSION  IGRPNO(lOO)  ,NGRPS  (?*»),  TAIL(IS),  IOPT  (IN)  , I IOPT  I l*» ) 
RF  AL  * ft  ISF  P /S  M BSBBB/ 


LAST/SMLAST  / 
/RF  P / 1MR  / 

/ALT / IMA/ 

/TOT / 1HT / 
/ALL/3MALI  / 
IRFP/1HR/ 

I ALT / IMA/ 

ITOT  / 1MT / 

I Sf  P /NMBSBBB/ 


ooo  no  o o o ooooo  o o o o 


C INITIAL  CONDITIONS 

irop  * o 

C»»»»  ITDP  * 0.0 
NGROUP  » 0 

ZERO  OUT  ARRAYS 
DO  IS  I * 1,  26 
NGRPS(I)  * 0 
00  10  J * 1,16 
IYOSEL(J>  * 0 
••••  IYOSEL(J)  « 0.0 
IYOGRPIJ,n  > 0 

00  6 K x 1,6 

1 YE  AR  ( J,  K ) * 0 
6 CONTINUE 

10  CONTINUE 
16  CONTINUE 

00  19  I * 1,100 

00  17  K * 1,6 

00  16  L « 1,2 

ISMIP(I,K,L1  x 0 
I HULL (I,K,l)  x 0 
GRP0EF(I,k,L»  » 0 
•••  GRPOEF(I,K,L>  x 0.0 
16  CONTINUE 
IT  CONTINUE 

19  CONTINUE 

OO  IS  I x 1,1] 

••18  IYAROd)  x 0.0 
18  I YARD ( I > x 0 

REAO  GROUP  DEFINITION  CARO  DECK 
00  JO  I x 1,  100 

RE  AO (5 , 1001  IGRPNO(I),  ( GRPOEF ( I , J , 1 1 , GRP DEE  1 1 , J , 21  , J»1 , J) , 

1 IGRPNO(I) , ( (ISMIP(I,K,L> ,IHULL( I,K,l> ,1*1,2>,K*1,J> 

100  EORHATdJ,  3(5X,AS,3X,A8>,  T1.I3,  T9.A6,  T13,A6,  T2  0 , A6  ,T26,  A6, 

1 TJJ.A6,  T3T.A6,  T66.A4,  T48,A4,  T57.A4,  T61,A6,  T68,A6,  T72,A4) 

TEST  FOR  TERMINATOR 

IF(  IGPPNOI  I)  .LT.O)  GO  TO  35 

REAO  ( 5,  10  01  I DUMMY  , (GRPOEF(I,J,l)  ,GRPOE E ( I , J ,2>  ,J*4,6)  , 

1 I0UM1,  ( ( ISMIP(I,K,L>  ,IHULL(I,K,L>  ,L*1,2)  ,K«<>,6) 

THIS  SECTION  REPLACES  BLANKS  NITM  ZEROS  FOR  COC,  ONLY 
00  26  J x 1,6 
00  20  K X 1,2 

GRPOEF (I , J,KI  x ICBZ(GRPOEF(I,J,Kt) 

20  CONTINUE 
26  CONTINUE 
30  CONTINUE 

REAO  IDENTIFICATION  CARO 


35  REAO(5,1011  OATE,  (COME  NT  (II  , lx  1 , 6 1 
101  FORMAT  ( 3A4,  2X,  5A4I 
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n n 


RFAO  TYPE  A YARD  OPTION  CARDS  CONTAINING  OPTIONS  AND  YEARS 

DO  40  I * 1,  IS 
III  * I 

RFAO(S,102>  IYDSELIIl,  ALL,  RE  P , AL  T , TOT  AL  , ( I YE  AR  ( I , J 1 , J*  1 ,5) 

102  FORNATCAS,  2X  , A 3 , 2X,A1,  2(4X,A1),  6X,  5(12,1X11 
IE(  IYOSFL ( I> .FO.LAST)  GO  TO  45 

SET  FLAG  FOR  VARIOUS  OPTIONS 

I OP  T I II  * 0 
IALL(I)  * 0 

ifirfp.fo.zrfp)  ioptii)  * 1 

IFCALT.EO.ZALT)  IOPTIII  * 2 
IFITOTAl.FO.ZTOTI  lOPTdl  = J 
IF* ALL.FQ.2ALL)  IALL(I)  * 1 

READ  TYPF  B YARD  OPTION  CAROS 

T HE  SF  GIVE  NH I CH  GROUP  NUMBERS  (IGRPNO)  ARE 
TO  BE  PROCESSED  FOR  EACH  YARD 
THIS  CARC  IS  the  2ND  OF  THE  PAIR  OF  YARD  OPTION  CAROS 

RFAfMS.lOJI  IVDSELUl,  ( I YDGRP  < I , J)  , J = 1 , 2St 

103  FORMAMAS,  2S(1X,I2)I 
SO  CONTINUE 

NY  0 S = III 
GO  TO  SB 

SS  NYOS  = III  - 1 
SB  I DONE  = NYCS 

determine  number  of  groups  per  yaro  to  be  processed 

00  60  I = 1,  NYOS 
00  SO  J = l,  2S 
J J * J 

IF< IYOGRP ( I, J!  .EQ.  01  GO  TO  SS 
so  CONTINUE 

NGRPSIII  = JJ 
GO  TO  GO 

SS  NGRPS(I)  * JJ  - 1 
GO  CONTINUE 

oetfrminf  number  of  years  inyfarsi  to  be  processed  for  each  yard 

DO  IS  I : l.NYOS 
00  GS  J * l,s 
JJ  = J 

IFdYFARd.Jl  • FO.  0 1 GO  TO  20 
GS  CONTINUE 

NYEARSIII  = JJ 
GO  TO  2S 

20  NYEARSIII  = JJ  - 1 
25  CONTINUE 

CALL  hfaderii.ioum.ioumi 
CALL  BANNFR 


RF  AD  HFAOFR  RECORD  OF  SNeS-SHOP  MATRIX  FILE 

RE  AO  I B)  OMN,  COAST,  IYE  AR1,  IIYAROIII,  II0PTII1  ,I»1,13) 
IFIEOFIBl ,NF.01  GO  TO  2SS 


REPM1000 
RFPM1010 
RFPM1020 
REPM1 030 
REPM10S0 
RFPM10S0 
RFPM10G0 
REPM1020 
REPM1080 
RFPM1 OBO 
REPM1100 
REPM1110 
REPM1 120 
REPM1 130 
RCPMltsO 
RFPH1150 
REPM1 160 
REPM1 120 
REPM1 180 
REPM1 181 
REPH1 150 
RFPM1200 
RFPM1 210 
REPM1220 
RFPM1230 
RFPMI2S0 
RFPM12S0 
RFPM12G0 
REPM1 2 20 
REPM12B0 
REPH12B0 
REPM1  300 
REPM1 31 0 
RFPM1320 
REPM1330 
REPM13S0 
REPH1 3S0 
RE  PHI 3G0 
REPH1320 
RFPM1380 
REPHt  3B0 
RFPH1S00 
RFPH1S10 
REPM1S20 
REPM1S30 
RFPM1SS0 
RFPMISSO 
RFPM1SG0 
REPH1S20 
RFPMISSO 
REPH1SB0 
REPM1S00 
RFPM1S1 0 
RFPM1S20 
RFPM1S30 
RFPMISSO 
RFPMISSO 
RFPM1SG0 
••••1520 
••••1580 


o o o o o o r 


<•••  ?b 


REA0(8,END*?99)  OWN,  COAST  , IYEARt  , (IYARDI  I)  , IIOPTII  > , 1*1, 13) 

CNF CK  IF  ANY  of  INF  SELECTED  YARDS  ( IYDSFL ) ARE  IN  THIS  SECTOR 


DO  T9  I » 1,19 

no  zs  j » i,u 

IFITYAROtJl.EQ.  IYDSELII))  CO  TO  SO 

78  CONTINUE 

79  CONTINUE 


C 

C 


IF  NO  YARD  TC  BE  PROCESSED  IS  IN  IMIS  SECTOR,  SKIP  TO 
THE  NEXT  SFCTOR 
CALL  SKPSEC 
CO  TO  7b 


INITIALIZE 
SO  IFIRST  * 0 

DO  S9  H * 1,70 

DO  S7  L » 1,9 

DO  IS  K ■ 1,79 

ARRAY1(K,L,N>  * 
ARRAY?(K,l,H)  * 
ARRAY3(K,L,N>  » 
ARRAY*(K,L,N>  * 
ARRAY9(K,L,N>  * 
AS  CONTINUE 
S 7 CONTINUE 
A9  CONTINUE 

00  90  J * 1,9 
IYOYRCJ)  * 0 


FL  ACS  FOR  EACH  YARD  ANO  ZERO  OUT  ARRAYS 


0.0 

0.0 

0.0 

0.0 

0.0 


••••1S90 
REPHlbO  0 
RFPHlbl 0 
RFPNlbZO 
REPHtb 30 
REPN1690 
REPN1690 
RFPNlbbO 
RFPNlbZO 
REPNlbSO 
RFPN1 b90 
RFPN170I 
REPN1710 
REPN1770 
REPN1 730 
REPH1  7*0 
REPN17S0 
REPH1 7b  0 
REPN1 770 
RFPN1 790 
RFPN1S00 
REPM1S10 
RFPN1SZ0 
RFPNIS30 
REPNt  6*0 
REPN1 SSO 
REPN1 660 
REPN1S70 
REPNt  68  0 
RFPN1690 


90 


99 


CONTINUE 
DO  99  I . 
HGROUPI 1 1 
JCROUP(I) 
KCROUPI I I 
CONI INUE 


l,?s 
* 0 
* 0 
» 0 


c 

c 

700 

C*Z00 

c»»»» 

c 

c 

c 


read  and  throw  away  ist  record  of  all  zeros 

READISI  ISHULL,  ITYPWK,  IYO 
IF(f  OF  (8)  .NE.  0)  CO  TO  799 
REA0(8,END*?9«)  ISHULL,  ITYPWK,  IYD 
IF  C IYDP.EQ.0)  GO  TO  701 
I F ( IYDP.EQ.0. 0)  CO  TO  701 
IF) IYOP.Nt .IYO)  CO  TO  790 

READ  70  SWBS-SHOP  RECOROS 

701  DO  70?  K * 1,70 

READISI  ISHULL,  ITYPWK, IYO,  ICROUP,  IFYR,  OWN,  COAST,  IPERD, 

1 ICON!,  ISTRT,  IFND,  ISPEC,  I VAL UES 1 I ,K I , I • 1 , 9 1 , ISHOP 
C*»»  RE  ADI  6,  ENO«?99)  ISHULL, ITYPWK, IYD, ICROUP, IFYR,  OWN , COAST , IPERD , 


RFPN1900 
RFPN1910 
RFPN1970 
RE PN1930 
RE  PN  1 9* 0 
REPN1990 
REPNI960 
REPN1970 
'•••I960 
••••1990 
••••7000 
••••7001 
••••7007 
REPN700  3 
RFPN7010 
RFPN7070 
RFPN?  030 
REPN70*0 
••••7090 
••••7060 
•••••070 


c»» 

1 ICONT,  ISTRT, 

IEND, 

ISPFC,  (VALUES  I I ,K) , 1*1,9),  ISHOP 

••••7080 

IFIE0FI6)  .NF. 

0) 

CO 

TO  799 

••••7090 

707 

CONTINUE 

REPN7100 

IF  1 IFIRST. EO. 01 

GO 

TO 

710 

RFPN? 110 

00  709  I * 1,79 

REPN7 170 

HGROUPI I>  * o 

REPN7130 

709 

continue 

Rf  PH?l<*0 

IF!  1 V DP. NE  .IYD) 

GO 

TO 

790 

Rf  PH? ISO 

GO  TO  23  0 

RE  PN? lbO 
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ooo  o noon  oor»o  non  o o ooonono 


TT 


710 

IFIRST  » 1 

REPM7 17  0 

IY0P  = iro 

REPN7180 

c 

RFPM7 190 

c 

SEE  IF  THIS  YARD  NEEDS  TO  BE  PROCESSED 

REPM7700 

c 

REPM7710 

715 

CALL  SEARCHIIYO.NYOS, II ,KKK) , RETURNSI80) 

••••7770 

C*7  15 
C 

C 

CALL  SEARCHIIYD.NYOS, II,  KKK , tSO) 

••••7730 

REPN7740 

REPN7750 

C 

SET  OPTION  FOR  THIS  YARD 

RFPM7760 

C 

JOPT  IS  OPTION  REQUESTED  BY  INPUT  CAROS 

REPN7770 

C 

C 

JJOPT  IS  THF  OPT  1 0 A USEO  To  CREATE  THE  XPLOOE  FILE 

REPN7780 

REPH7790 

JJJOPT  = a 

REPM7300 

JOPT  » I OPT  < 1 1 1 

REPN731 0 

JJOPT  « IICPT<KKKI 

REPM7370 

IF<IIOPT<K<<KI  .EQ.  IREP)  JJJOPT  * 1 

REPM7J30 

IF<IIOPT<KKK)  .EQ.  IALT)  JJJOPT  * 7 

RFPM7340 

IF<IIOPT<I<KIO  .EQ.  ITCT1  JJJOPT  * J 

RFPM7350 

IF< JOPT. EQ. JJJOPT)  GO  TO  717 

REPH7JS0 

CALL  IERROR < 4 , J JOPT ,IYO) 

REPN7370 

IF< IOONE.LE.il  STOP 

REPM7375 

CALL  SKPYOTIYC) 

REPM73S0 

C 

GO  TO  SO 

REPH7J90 

RFPM7400 

C 

IF  A YARO  TOTAL  HAS  BEEN  REQUESTED,  SET  KOPT 

REPN7410 

71  7 
C 

KOPT  * I ALL  < 1 1 ) 

REPM7470 

REPN74J0 

C 

C 

DETERMINE  ARRAY  OF  YEARS  PER  YARO  TITOVR) 

RFPN7440 

REPN7450 

HYEAR  • NVEARS  <111 

REPM74S0 

00  770  K * 1 , NYEAR 

REPH7470 

I YO  YR  <K>  = IYEARIII,  K) 

REPM7480 

770 

C 

CONTINUE 

REPM7490 

REPN7500 

C 

DETERMINE  NUMBER  OF  GROUPS  <NGROUP>  TO  BE  PROCESSEO 

REPM7510 

C 

C 

FOR  THIS  YARO 

REPM75 1 1 
REPM7570 

NGROtIP  * NGRPS  <111 

REPN75J0 

IFINGROUP.EQ. 0)  GO  TO  7 JO 

REPN754  0 

00  775  K = 1,  NGROUP 

RFPM755  0 

KG  R OUP  < K ) » IYDGRPUI,  K) 

REPH7550 

775 

C 

CONTINUE 

RFPM7570 

REPM7580 

C 

C 

CHECK  TO  SEE  IF  THIS  YEARS  OATA  IS  REQUIRED 

RFPM7590 
REPM760  0 

C»?  JO 

CALL  YEAR  < IFYR,  IYOYR,*70O) 

••••7610 

7 30 

CALL  YE  AR  < IFYR , I YO YR ) , RETURNS<?001 

••••7670 

C 

IF  THERE  IS  NO  MATCH  ON  YEAR,  RE  AO  NEXT  SHOP  RECORO 

REPM7630 

C 

IF< NGROUP. GT. 0)  GO  TO  740 

RFPN7640 

REPN7550 

C 

C 

IF  NO  GROUPS  ARE  TO  BE  PROCESSED,  CHECK  ON  ENT IRF  YARO 

REPM7G60 

REPN7670 

IF  <KOPT  .EQ.lt  GO  TO  735 

REPN7680 

CALL  SKPYO  < I T C 1 

REPN7690 

GO  TO  715 

REPM7700 

C 

REPN7710 

C 

IF  NO  GROUPS  HAVE  BEEN  SELECTED  FOR  THIS  YARO  BUT 

REPN7770 

C 

ENT IRF  YARO  IS  TO  BE  PROCESSEO  - CALL  SUN 

REPM?rjO 

C 

REPH7740 
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2 35 

KK  - 1 

REPM2750 

CALL  SUHC  NGROUP , I FYR, KK , It OYR , KOPT ) 

REPM7760 

GO  TO  200 

REPM7770 

c 

REPM2780 

c 

CHFCK  FOR  ► ATCH  OF  GROUP  NUMBERS 

REPM2790 

c 

REPM2800 

240 

CALL  COMP AR ( I SHULL , IGRPNO , NGROUP ) , RE  TURNS (242) 

••••7810 

c* 

■240 

CALL  COMPABTISHULL, IGRPNO, NGROUP,  *242) 

••••7870 

c 

IP  THERF  IS  NO  MATCH  ON  GROUP  NUMBER, 

CHECK 

IF  ENTIRE 

REPM2830 

c 

TARO  IS  TO  BE  PROCESSED 

REPM7840 

c 

REPM7850 

IF(KOPT.EO.l)  GO  TO  24S 

REPM7860 

c 

REPM7870 

c 

GROUPS  ONLY  (NOT  ENTIRE  TARO)  ARE  TO  BE 

PROCESSEO 

REPM7880 

c 

RFPN7B90 

KK  • 0 

REPM7900 

CALL  SUM( NGROUP, IP TR, KK , IY0YR, KOPT) 

REPM2910 

GO  TO  200 

REPM2920 

2 42 

IF(KOPT.ea.l)  GO  TO  235 

REPM7930 

GO  TO  200 

REPM794  0 

c 

REPM29S0 

c 

IN  ACCITION  TO  GROUPS,  ENTIRE  TARO  IS 

TO  BE 

PROCESSEO 

REPM7960 

c 

RFPM7970 

2 4* 

KK  = 2 

REPM2980 

CALL  SUM ( NGROUP, IF  TP, KK , IYCVR, KOPT) 

REPM7990 

GO  TO  200 

REPN3000 

c 

RFPN3009 

c 

AT  ENC  OP  A TARO,  WRITE  REPORTS  FOR  THAT  YARD 

REPM3010 

2 SO 

CONTINUE 

REPM3020 

c 

REPM3030 

c 

SUBROUTINE  REPORT  PROOUCES  THE  NANOAY 

REPORTS 

REPM3040 

c 

FCR  A GIVEN  TARC  ANO  YEAR 

REPM3050 

c 

REPM3070 

CALL  REPORT ( I TOP, NGROUP ,MYE AR, JOPT ,IYOYR, 

KOPT) 

REPN3080 

c 

REPN3090 

IOONE  = I DONE  - 1 

REPM3I00 

I F « IDONE. EO.O)  GO  TO  260 

REPMT  110 

c 

REPM3 1 1 9 

c 

IS  THIS  the  last  recorc  of  a sector 

RFPM3120 

IFdY0.E0.ISEP)  GO  TO  76 

REPMT  130 

backspace  a 

REPM3135 

GO  TO  80 

REPMT 14  0 

c 

REPMT160 

c 

CHECK  FOR  RECORO  OF  O S 

REPMT 170 

2SS 

IF< ITOP.EQ.ISEP)  STOP 

REPM3180 

CALL  REPORT ( I YOP, NGROUP, MYEAR, JOPT, I YOTR, 

KOPT) 

REPMT190 

260 

STOP 

REPMT200 

ENO 

REPMT210 

c 

c 

c 


SUBROUTINE  BSNNE R 


a 


i 


SUBROUTINE  TO  PRINT  BANNER  PAGE 


WRITE  16,100) 


100  forhat< 

/ / / , 3 6 X 

, *> 9 ( 1 H X ) //, 

1 

3 7X, 

S8H  XXXX 

X X 

XXXX 

xxxx 

2XX  / 

3 

3 7X, 

S8HX 

X X 

X X 

X 

4 

X/ 

5 

3 7 X , 

58HX 

X X 

X X 

X 

9 

X / 

f 

J 7X , 

5 AH  XXX 

XXX 

XXXX 

XXX 

AX 

/ 

9 

3 7 X , 

S8H  X 

XXX 

X X 

X 

A 

/ 

B 

3 7 X , 

*>8M  X 

XX  XX 

X X 

X 

C 

/ 

0 

37X, 

S8MXXXX 

X X 

XXXX 

xxxx 

E 

//// 

F 

44X  , 

4 7 H X X X X 

XXXX  x 

XXXX 

xxx 

G 

44X  , 

4 7H X X 

X 

X X 

X X 

H 

4 4 X , 

4 7 H X X 

X 

X X 

X X 

I 

4 4 X , 

47HXXXX 

XXXX 

xxxx 

X X 

J 

44Xf 

4 7 H X X 

X 

X 

X X 

M9ITE  (f, 

,101) 

101  FORMAT ( 1H  43* ,4  7H  X X 

X 

X 

1 

44X  , 

4 7 H X X 

XXXXX 

X 

xxx 

2 

3 SX  , 

*> 9 ( 1 HX  ) / 

) 

RETURN 

ENO 


fl  ANN 

10 

BANN 

zo 

BANN 

30 

BANN 

••0 

BANN 

so 

BANN 

60 

xxxx 

X 

X 

xxx 

XX8ANN 

7 0 

BANN 

SO 

X 

X 

X X 

X 

X 

BANN 

90 

BANN 

100 

X 

X 

X X 

X 

X 

BANN 

no 

BANN 

1Z0 

xxxx 

xxx 

XXXXX  X 

X 

XXX  B ANN 

130 

BANN 

140 

X 

X 

X X 

X 

X 

BANN 

iso 

BANN 

160 

X 

X 

X X 

X 

X 

BANN 

170 

BANN 

iso 

xxxx 

X 

X 

xxx 

X 

BANN 

190 

BANN 

zoo 

xxxx 

XXXXX 

xxxx 

/ 

BANN 

Z10 

X 

X X 

X 

/ 

BANN 

zzo 

X 

X X 

X 

/ 

BANN 

Z30 

xxxx 

X 

xxx 

/ 

BANN 

Z40 

X X 

X 

X 

) 

BANN 

zso 

BANN 

Z60 

X 

X X 

X 

X 

X 

/BANN 

Z 7 0 

X 

X X 

xxxx 

/// 

BANN 

zso 

BANN 

Z90 

BANN 

300 

BANN 

310 

SUBROUTINE  COMPARE  ISHULL  , IGRPNO,  NGKOIJPI  , Rf  T URNS  C NONE  ) 
SUBROUTINE  COHPAR( I SHULL , IGRPNO,  NGROUP , • 1 


Tv 


c 

c 

c 

c 


c • • • • 


c 


SUBROUTINE  TO  Of  TE  RHINE  WHICH  RE  QUIRT  0 GROUPS 

this  data  recoro  falls  in 

INTEGER  GRPOFF 

PF  AL  • A GPPCFF « IYOSFL#  IYO,  ISHULL,  IVARO 
C OH  NON/  1 0 A T A/  GRPOFF  I 100,6,2)  v IYOSEMIS),  IYAROI13) 
C0MM0N/MTSC/TYPGRP(14#26) , JGROUP(2«*)f  KGROUP(2S),  MGROUPC24) 
DIMENSION  IGRPMOI 1001 

IFLAG  * 0 


C CHECK  GROUP  NUMBERS  TO  Rf  PROCf SSf 0 FOR  THIS  FAROE  KGROUP) 

C AGAINST  GROUP  NUMBER  OF  GROUP  DEFINITION  DATA  RASE  (IGRPNO) 

DO  40  K * lf  N GROUP 

no  to  i = 1,100 

I F ( IGRPNO ( I ) .Nr.  KGROUP(K))  GO  TO  30 

C 

C CHFCK  SHIP  AND  HULL  RANGE 

DO  20  J = 1,6 

IF ( ISHULL  .GF.  GRPDf F( I, J, 1)  .AND.  I SHULL .Lf .GRPOFF ( I , J, 2) ) 
i GO  TO  10 

C 

C RFVfRSE  THE  TEST  FOR  360 

CMM  IF(  ISHULL.  LF.  GRPOF  F(  I , J,l)  .AND.  ISHULL.GE  .GRPOFF  ( I , J,  2)  ) 

C***  1 GO  TO  10 

GO  TO  20 
C 

C NGROUP  IS  an  ARRAY  OF  MATCHED  GROUPS  FOP  THIS  RECORD 

C JGROUP  rs  an  array  of  matched  groups  for  this  yard 

c 

10  MGROUP(K)  * IGRPNO (I) 

JgROUP(K)  * MGPOUP(K) 

IFLAG  * 1 
20  CONTINUE 
TO  CONTINUE 
40  CONTINUE 

IFCIFL AG.EQ.l)  RETURN 
C 

C IF  NONE  OF  IMF  G POUP  NUMBERS  MATCH,  AITFRNATF  RETURN  THAT 

C CHECKS  ON  PROCESSING  ENTIRE  YARD 

RrTURN  NONE 
C**  RF  t urn  1 
E NO 


• • • • 

1 0 

70 

COMP 

TO 

COMP 

40 

COMP 

SO 

COMP 

SO 

• • • • 

ro 

9 0 9 9 

A0 

COMP 

R0 

COMP 

100 

COMP 

110 

COMP 

170 

COMP 

1 TO 

COMP 

140 

COMP 

ISO 

COMP 

160 

COMP 

1 ro 

COMP 

1 A0 

COMP 

IRQ 

C ON  P 

20  0 

CONP 

210 

CONP 

77  0 

»*•» 

23  0 

9 9 9 9 

240 

CONP 

2S  0 

CONP 

2h0 

2 TO 

9 99  9 

2A0 

CONP 

2R0 

CONP 

TOO 

CONP 

310 

CONP 

32  0 

CONP 

3 3 0 

CONP 

340 

CONP 

JSO 

CONP 

360 

CONP 

3 TO 

CONP 

30  0 

CONP 

JB0 

CONP 

400 

CONP 

410 

CONP 

42  0 

CONP 

4 30 

• •M 

440 

999  9 

440 

CONP 

460 

1 h 1 


SUBROUTINE  HFAOFRINOPG.IO.JOPT) 


! 


. 

i 

i 

•n 

l 

i 


C 

C SUBROUTINE  TO  WRIT F REPORT  IOENTIFICAT ION  ANO  NUMBER  PAGES 

C 

CONMON/IOENT/COMENT (SI , OATE(J) 

IF(NOPG.GT.l)  GO  TO  10 
IPAGE  * 0 

MRITE(6,100)  OATE.COHENT 

100  FORMATUHl,  2X,  4H0ATF,  2X,  3A4,  /,  3X,  SA 4) 

RETURN 

10  IF| IO.NF. IOP)  I PAGE  * 0 
I PAGE  * IPAGE  ♦ 1 
IOP  = 10 

NRITE (6| 1011  ID, JOPT,OATF,IPAGE,COMENT 

101  FORMAT ( 1H1 , 2X,  1 2HRF  PORT  I 62-0,11,  1H-,  II,  2X  , 5HOATEI,  IX, 

1 3 A 4 , SOX,  4HPAGE,  16,/  3X,  SAG) 

RFTURN 

FNO 


HEAD  10 
HEAD  20 
HEAD  3 0 
HEAD  40 
HE  AO  SO 
HEAD  60 
HEAD  TO 
HEAD  «0 
HFAO  90 
HEAD  100 
HEAD  110 
HEAD  120 
HE  AO  130 
HEAD  140 
HE  AO  ISO 
HEAD  160 
HFAD  1T0 
HEAD  100 


SUBROUTINF  IFRROR(N,IOUMMT,IDBL) 

IERR 

10 

c 

IERR 

20 

c 

SUBROUTINF  TO  PRINT  CUT  ERROR  MFSSAGFS 

IERR 

30 

c 

IERR 

40 

c* 

, , 

RFAL • 0 I DBL 

*«,, 

so 

c 

IFRR 

60 

GO  TO  ( 10, 20, JO, 40>  , N 

I FRR 

70 

10 

NRITF  (T,t00>  ID9L 

IERR 

80 

100 

FORMAT!  IX,  3 TH  • • F NO  OF  FRF  FNCOUNTFRFO  IN  YARD  , AS) 

IERR 

90 

STOP 

IFRR 

100 

20 

MR ITE (2,101)  I O BL 

IFRR 

110 

101 

FORMAT!  IX,  S0H  • • • FRROR  IN  GROUP  NUMBFRS  - NO  MATCH  FOR  YARD 

, IERR 

120 

1 AS) 

IFRR 

130 

RFTURN 

IERR 

140 

30 

MR ITF!T,102)  IDUMMY,  IDBL 

IFRR 

iso 

102 

FORMAT!  IX,  2 SH  • » » NO  SHIPS  IN  GROUP  , 13,  IX,  4HF0R  , AS) 

IFRR 

160 

RFTURN 

IERR 

170 

40 

MR ITF  IT,  103)  IOBt,  IDUMMY 

IERR 

180 

103 

FORMAT I1X,  1AH  • • • OPTION  FOR  , AS,  6H  IS  - , A3, 

IERR 

190 

1 1 SH  • • • NO  MATCH  ) 

IFRR 

200 

RFTURN 

IFRR 

20S 

ENO 

IFRR 

210 

162 


SUBROUTINE  NOSH I P ( J J) 

NOSN 

10 

c 

NOSM 

20 

c 

SUBROUTINE  TO  OFTERMINE  THE 

NUMBER  OF  SNIPS  PER  GROUP 

NOSH 

30 

c 

AND  PRINTS  OUT  SHIP  MULL 

VALUES 

NOSH 

40 

c 

NOSH 

so 

CONMON/RFP/  ISHIP(100,h,2) , IHULL(100,h,2» 

NOSH 

70 

c* 

• * 

REAL*#  ISHULL 

• •9  9 

A0 

c 

NOSH 

90 

DATA  IBLANK/4M  / 

NOSH 

100 

L = l 

NOSH 

110 

DO  10  « • 1,1 

NOSH 

1?0 

KKK  * KK 

NOSH 

130 

I F ( ISHIP ( J J,KKK  ,L 1 .EQ.IBLANKI 

GO  TO  12 

NOSH 

140 

10 

CONTINUE 

NOSH 

iso 

GO  TO  IS 

NOSH 

lb  0 

12 

KKK  * KKK  • l 

NOSH 

wo 

IS 

IE(KKK.GT.3*  GO  TO  20 

NOSH 

1 A 0 

NN  = KKK 

NOSH 

190 

WRITE (6, 102)  I ( ISHIPC JJ,KK,L> , 

IHULLI JJ.KK.L) ,L*1,2» ,KK*1,NH» 

NOSH 

?00 

RETURN 

NOSH 

?10 

20 

HN  = 3 

NOSH 

22  0 

WRITE(h,102t  UISHIPI  JJ,KK,L»  , 

IHULL  1 JJ.KK,L)  ,L«1 .2)  ,KK*  l.NNI 

NOSH 

23  0 

NN  * KKK 

NOSH 

2 40 

WRITE ( #, 1021  ( «ISHIP( JJ.KK.LI . 

I MULL ( JJ,KK ,Lt  ,L*  1 ,2>  , KK»4,NN> 

NOSH 

?so 

102 

FORNATdH  , 30  X f 3(A<,,lXfA4,lX, 

1H-,  IX  ,A4,  1X,A4,4X1I 

NOSH 

2 hO 

RETURN 

NOSH 

2T  0 

ENO 

NOSH 

?80 

1 6 J 


SUBROUTINF  RFPORTtlYO,  NGROUP,  HYFAR,  JOPT,  IYOYR,  KOPTl 

RF  PT 

10 

c 

REPT 

2 0 

c 

SUBROUTINE  TO  PROCESS  0 A T A FOR  RFPAIRS,  AITS, 

RF  PT 

30 

c 

AND  TOTAL  OF  Rf PAIRS  ANO  AITS 

RF  P T 

40 

c 

REPT 

SO 

RF  AL  # A I Y 0 

• ••• 

bO 

c 

REPT 

zo 

C OH HON/ MORA/ APR  AY  1 (?S,S, 

?0»,  ARRAY?(?S,9,?0) , ARR»Y3(?G,q,?0» , 

REPT 

AO 

l ARRAY4C  2S,9,?0)  , AR  R A Y S ( 2S  , 9 , ?0  > , VALUFS(9,20) 

RF  PT 

HO 

COHHON/RFP/  lSHlP(l00,h, 

?>,  IMULl  (100,f>,?l 

REPT 

100 

COHNON/HISC/I YOGRP( IS, ?S) , JGROUP(?S>,  KGROUP(2S>#  HGROUP(3t>) 

REPT 

110 

COHHON/VAL/  VALYR(9,20>, 

SUHWBStrO),  SUHSHP(B),  TOT 

REPT 

120 

01 HFNSI ON  IYOYR(S) 

REPT 

130 

c 

REPT 

140 

c 

REPT 

ISO 

c 

ASSIGN  YARD  NUNBFR 

FOR  REPORT  IDENTIFICATION 

REPT 

lbO 

c 

RF  PT 

izo 

CALL  YONOCIYO,  10) 

REPT 

1 AO 

c 

REPT 

190 

c 

IF  FNTIRF  YARD  HAS 

BE F N PROCESSED  (KOPT  = 1)  IT  IS 

REPT 

2 00 

c 

STORFO  AS  THF  1ST 

GROUP  IN  THF  ARRAY 

REPT 

210 

c 

REPT 

220 

IFCKOPT.NF .1)  GO  TO  s 

REPT 

230 

NGROUP  x NGROUP  ♦ 1 

REPT 

24  0 

c 

REPT 

2S0 

c 

RF  P T 

2b  0 

c 

NGROUP  TS  THF  NUNBFR 

OF  GROUPS  FOR  THIS  YARO 

REPT 

220 

c 

JGROUP  IS  THF  ARRAY 

OF  GROUP  NUHBERS  THAT  HATCH 

REPT 

2 A 0 

c 

FOR  THIS  YARD 

REPT 

290 

c 

REPT 

30  0 

5 

00  400  J * 1,  NGROUP 

REPT 

310 

c 

REPT 

32  0 

c 

TEST  IF  FNTIRF  YARO 

(BUT  NO  GROUPS)  IS  TO  Bf  PROCFSSFO 

REPT 

330 

IF ( NGROUP. FQ. 1 .ANO.  KOPT.FQ.l)  GO  TO  10 

REPT 

34  0 

IFIKOPT.FQ.l  .AND.  J.FQ. 

1)  GO  TO  10 

RF  P T 

3S0 

LL  = J - KOPT 

RFPT 

3b  0 

JJ  = JGROUP  C LL ) 

Rf  PT 

3 20 

c 

RFPT 

3 A 0 

c 

CHECK  IF  TMFRF  ARE 

HATCHING  SHIPS  IN  EACH  REQUIRED  GROUP 

REPT 

3 90 

c 

REPT 

400 

IFIJJ.NE.O)  GO  TO  10 

RFPT 

410 

KK  = KGROUPCLU 

RFPT 

420 

CALL  TERROR! 3, KK, IYO) 

REPT 

430 

GO  TO  400 

REPT 

440 

c 

RFPT 

4 S 0 

c 

HYFAR  IS  THF  NUNBFR 

OF  YEARS  FOR  THIS  YARO 

REPT 

4 b 0 

c 

REPT 

4 20 

10 

00  3S0  1*1,  HYFAR 

REPT 

4 A 0 

II  * I 

REPT 

490 

c 

RFPT 

SOO 

c 

ZERO  OUT  ARRAYS 

RFPT 

sio 

00  30  H * l,?0 

REPT 

S 2 0 

00  20  L « 1,9 

REPT 

s 3 0 

SUHMBS(H)  * 0.0 

REPT 

S40 

SUNSNP(L)  * 0.0 

REPT 

ss  o 

20 

CONTINUE 

REPT 

SbO 

30 

CONTINUE 

RFPT 

S 2 0 

TOT  * 0.0 

REPT 

S AO 

GO  T 0 (.’0(1,  ??0,  ?*0,  760,  ?«0I  , II 

RFPT 

S 90 

1 1- 4 


o o o o no 


c 


200  00  210  N * 
00  205  L * 
VALVR(L.H) 
205  CONTINUE 
210  CONTINUE 
GO  TO  300 
C 

220  00  230  N = 
OO  225  L * 
VALYR(L,HI 
225  CONTINUF 
230  CONTINUE 
GO  TO  300 
C 

2 50  00  250  N • 
00  255  l « 
VALYRIL.N) 
2 55  CONTINUE 
250  CONTINUF 
GO  TO  300 
C 

2b0  00  270  N * 
00  285  l » 
VALYRll  ,H) 
285  CONTINUE 
2 TO  CONTINUE 
GO  TO  300 
C 

200  00  250  N • 
00  285  l * 
VAl YR  f L , HI 
2 85  CONTINUF 
250  CONTINUE 


1,20 

1.5 

= ARRAYl(J,l,H> 


1,20 

1,5 

* ARRAY  2 ( J , L , NT 


1,20 

1,5 

> ARRAY  3 ( J ,L ,N) 


1,20 

1,5 

* ARR  AV5(J,L,N) 


1.5 

1.5 

> ARRAYS (J,L , NT 


FINO  VALUES  OF  TOTAL  SNBS  FOR  20  SHOPS 
300  00  310  N * 1,20 
DO  305  L » 1,5 

SUNMBS(N)  * SUHMBS (H)  ♦ VALYR  CL , HI 

305  CONTINUE 
310  CONTINUE 


FINO  VALUES  OF  TOTAL  SHOPS  FOR  5 SNBS 
00  320  L * 1,5 
00  315  N » 1,20 

SUNSHP (LI  * SUHSHP(L)  ♦ VALYRIL.N! 

315  CONTINUF 
320  CONTINUF 

FINO  VALUE  OF  TOTAL-TOTAL 
00  325  N « 1,20 
TOT  * SUNNBSTNT  * TOT 
325  CONTINUF 

CALL  TITLE  1 JOPT ,10) 

MRI  TE  (6,  1001  IYO 

100  FORNATdH  , 60X,  5HYAROI,  IX,  AS, /I 
IFIXOPT.EO.l  .AND.  J.EQ.l)  GO  TO  65 
HRITE(6,101>  JG  ROUP  ILL  > 

101  FORNATdH  , 55X , 25HSUNNAT  ION  FOR  GROUP  NO.  , 12, 

1 18H  - CONSISTING  OF,  /I 


REPT  800 
RFPT  810 
REPT  820 
REPT  830 
REPT  850 
RFPT  650 
REPT  680 
REPT  6 7 0 
REPT  880 
REPT  bOO 
RFPT  TOO 
RFPT  MO 
RFPT  720 
REPT  730 
REPT  750 
RFPT  750 
REPT  760 
REPT  770 
RFPT  780 
RFPT  750 
RFPT  800 
RFPT  810 
RFPT  820 
REPT  830 
REPT  850 
REPT  850 
RFPT  860 
REPT  870 
REPT  880 
REPT  850 
REPT  500 
REPT  510 
REPT  520 
REPT  530 
REPT  550 
RFPT  550 
REPT  560 
REPT  570 
REPT  580 
REPT  550 
REPT1 000 
REPT1010 
REPT 1 020 
REPT 1030 
REPT1050 
REPT 1050 
RFPT1060 
REPT 1 0 7 0 
REPT1080 
REPT1050 
REPT1 100 
REPT 1 110 
RFPT 1 120 
RFPT1 130 
RFPT1150 
RFPT1 ISO 
RFPT 1160 
RFPT1 170 
REPT1 180 
RFPTt 150 


non  o n n o 


DETERMINE  THE  NUMBER  OF  SHIPS  PER  CROUP  FOR  PRINTOUT 

CELL  NOSH  I P ( J J I 
WRITE (6* 10SI 

105  FORNETUH  ) 

GO  TO  70 

6S  WRITE  (6,  106) 

106  F OR  HE  T ( 1 H , SIX,  78HSUNMET ION  FOR  EN  ENTIRE  YERO,  71 
70  WRI  TF  (6,107)  IYOYR(I) 

107  FORNETUH  , 6 0 X , RHFISCEL  1R,  I?,/,  T67,  11H , /) 

CELL  REP1 
3S0  CONTINUE 
400  CONTINUE 
RETURN 
ENO 


RfPT 1700 
REPT1 710 
REPT 1770 
REPT1730 
REPT1740 
REPT17S0 
RFPT1760 
RFPT1770 
REPT1700 
REPT17R0 
REPT 1 30  0 
REPTt  310 
RFPT1370 
REPT1 330 
RFPT1 340 
REPT13S0 
REPT1 360 


SUBROUTINE  REP  1 


SUBROUTINE  TO  PRINT  SWBS-  SHOP  VELUES 


DIMENSION  ISHP170) 

DIMENSION  ISNBS(R) 

DETE  ISHP/6,  11,  17,  73,  76,  31 
l 71,  77,  81,  R4,  SR , 3HOTH  / 


WRITE  <6, 100)  ( I SWBS  CN ) , N* 1 , Rl 

100  FORMET11H  , 70X,  R ( 1 X , SHSWBS 

1 10111,  ?(4H ),  111) 

DO  10  M * 1,17 

WRI  TE  (6,  1 0 1)  IS  HP  INI,  (YELYRd 
10  CONTINUE 

DO  70  M « 14, 1R 
WRITE(6,101)  ISHP(N),  (VELYRO 
70  CONTINUE 


WRITE  (6,  10  3)  (SUMSHPU)  ,L<1,R)  , TOT 
101  FORNETUH  , 6 X , 6HSM0PI  , 17,  7X,  10IFR.I 
103  FORNETUH  , 6 X , SHTOTEl.RX,  10(FR. 0,1X11 
RETURN 
ENO 


REP  1 

10 

REP1 

70 

REP  1 

30 

REP  1 

40 

P«R),  TOT 

RE  PI 

SO 

REP1 

60 

REP1 

70 

t,  SI,  S6,  64,  6S , 67, 

REP1 

80 

REP1 

R0 

, ROO/ 

RFP1 

100 

RFPt 

110 

REP1 

170 

SHTOTEL,  / T77, 

REP1 

130 

RFP1 

140 

REP  1 

ISO 

SUNWBSIMI 

RE  PI 

160 

RFP1 

170 

REP1 

171 

SUNWBS1M) 

RFP1 

17? 

REP1 

173 

) 

REP  1 

180 

701 

REP  1 

iso 

1X1  / ) 

REP1 

710 

RFP1 

770 

REPI 

730 

REP1 

740 

ooooo  oo  o ooooo 


SUBROUTINE  SE ARCH ( I TO , NYDS , II I , KKK) , RE  TURNS ( NOTD) 

10 

»•* 

SUBROUTINE  SE »RCH C IY0 , NY OS , I I I , KKK , • ) 

20 

SEAR 

30 

SUBROUTINE  TO  OETERNINE  IE  THIS  YARO  NEEDS  TO  BE  PROCESSEO 

SEAR 

NO 

SEAR 

SO 

REAL’S  GRPOEF,  lYOSEt , ITO,  IYARO 

• • • • 

GO 

INTEGER  GRPOEF 

• ••• 

TO 

CONNON/IOATA/  GRPOEF  1 1 0 0 , 6 ,2 ) , IYDSELU5),  IYARO(13> 

SEAR 

SO 

SEAR 

B0 

5 

OO  10  II  * 1 , NY  OS 

SEAR 

100 

III  » II 

SEAR 

110 

IF ( I YO • EQ • IYOSEL(II) I GO  TO  20 

SEAR 

120 

10 

CONTINUE 

SFAR 

130 

SEAR 

140 

IF  THIS  YARO  ISNT  REQUIRED,  SKIP  TO  NEXT  YARO 

SEAR 

ISO 

CALL  SKPYO(IYC) 

SEAR 

160 

RETURN  NOYO 

,*», 

170 

RETURN  1 

*„» 

ISO 

SEAR 

190 

DETERMINE  SUBSCRIPT  OF  MATCHING  YARO  NAME  (IYARO) 

SEAR 

200 

TO  FIND  ITS  ORDER  ON  HEADER  RECORD 

SEAR 

210 

SEAR 

220 

?0 

OO  30  KK  > 1,13 

SEAR 

230 

KKK  » KK 

SEAR 

240 

IF(IYD.EQ.IYARD(KK>>  RETURN 

SEAR 

2S0 

30 

CONTINUE 

SEAR 

26  0 

RETURN 

SEAR 

26S 

ENO 

SFAR 

270 

H 


! 


167 


. 1 


SUBROUTINF  SKPSFC 

SKPS 

to 

c 

SKPS 

70 

c 

SUBROUTINF  TO  SKIP  AN  ENTIRF 

SFCTOR 

SKPS 

30 

c 

SKPS 

40 

£•••• 

REAL'S  IYO,  IYOP,  ISMULL,  ISEP 

• ••• 

40 

DATA  ISEP/SMBBRSB/ 

SKPS 

bO 

c 

SKPS 

TO 

to 

READT  A)  ISHULL,  ITYPWK,  IFO 

• M» 

*0 

IF(FOF(«)  .NF.OI  GO  TO  ?0 

99  9 9 

40 

c»»  to 

REAOtS,  FNC=?C)  ISHUll,  ITYPNK, 

ivn 

9 99  9 

too 

ITOP  * I V 0 

SKPS 

tto 

IFtirO.NF.ISFP)  GO  TO  10 

SKPS 

t?0 

RETURN 

SKPS 

130 

20 

CALL  TERROR ( t » IOUM, I Y DP  1 

SKPS 

140 

RETURN 

SKPS 

1 44 

ENO 

SKPS 

140 

SUBROUTINF  skpyo<iyo> 

SKPY 

10 

c 

SKPY 

20 

c 

SUBROUTINF  TO  SKIP  AN  FNTIRF  YARD 

SKPY 

•TO 

c 

SKPY 

40 

c** 

REAL*«  I Y O » I YOP  » ISHULL 

999  9 

so 

c 

SKPY 

h0 

I YOP  = I Y O 

SKPY 

r o 

10 

RFADIft)  ISHULL  f ITYPWK,  IYO 

9 99  9 

ftO 

IP(F0F(8I  .NF.0)  GO  TO  20 

999  9 

B0 

C**  10 

RE  A O ( ft , E NO=  2 0 ) ISHULL,  ITYPNK,  IYO 

99  9 9 

100 

IFC  IYO.EQ. IYOP)  GO  TO  10 

SKPY 

110 

BACKSPACE  ft 

SKPY 

120 

RETURN 

SKPY 

1T0 

20 

CALL  IERROR( 1 , IOUM, IYOP) 

SKPY 

140 

RET  R N 

SKPY 

1 4 S 

ENO 

SKPY 

ISO 

16  8 


ooooo  ono  oonnoonon 


I •'  Mfl 


SUBROUTINE  SUH(NGROUP,IFYR,KK,IYOYR,KOPT) 

C 

C PROGRAM  TO  SUP  ANO  STORE  »IT  AND  REPAIR  OATA  ACCORDING 

C TO  GRCUP  ANO  YEAR 

C 

COMNON/'NORK/ARRAYt(ZS,9,ZO>,  ARRA YZ ( Z 6, 9 , ZO > , ARRA Y 3 ( ZS , 9, ZO > , 
1 ARRAY4(ZS,9,Z0> , ARR A YS ( ZS , 9, ZO > , VALUFS(9,Z0) 
C0NN0N/NISC/IY0GRP(1S,ZS) , JGROUP(ZS),  K&ROUPCZS),  MGROUP(ZS) 
DIHENSION  IYOYR (SI 

IF  TMF  SUBROUTINE  IS  CALLED  WITH 
KK  * 0 DOST  SUN  ENTIRE  YARD 
KK  * 1 NO  GROUPS,  BUT  SUN  ENTIRE  YARD 
KK  = Z SUM  ENTIRE  YARD  IN  ADDITION  TO  GROUPS 


CHECK  YEAR  WITH  ARRAY  OF  YEARS  REQUIRED  FOR  THIS  YARD  ANO 

use  the  index  to  determine  nhich  array  to  use 
no  io  i * i,s 
II  = I 

IF( IFYR.EQ.IYDYR(I) ) GO  TO  IS 
10  CONTINUE 

CHECK  ARRAY  OF  M AT  CHE D GROUP  NUMBERS  WITH  ARRAY  OF 
GROUP  NUMBERS  REQUIRED 
IS  KKK  = KK  » 1 

GO  TO  (Z0,ZS,30» , KKK 
ZO  LLL  * NGRCUP 
GO  TO  3S 
ZS  LLL  = 1 
GO  TO  3S 

JO  LLL  * NGROUP  ♦ 1 
JS  BO  SS  J . 1 , L LL 

IF(KK.EQ.l)  GO  TO  SO 
IFIKK.GE.l  .AND.  J.FQ.l)  GO  TO  SO 
JJ  = J - KOPT 

IF ( NGROUP ( JJ) .FC.KGROUP(JJ) I GO  TO  SO 
GO  TG  SS 

ARRAY  1,  ARRAYZ,  ARRAY],  ARRAYS  AND  ARRAYS  ARE  OATA  ARRAYS 
WHERE  J IS  TMF  GROUP  NUMBER,  L IS  THE  SHOP 
AND  K IS  SMBS  FOR  YEAR  II 

SO  GO  TO  (ZOO,  ZZO,  ZSO,  ZSO,  ZAO),  II 

C 

ZOO  00  Z10  L * 1,Z0 

DO  ZOS  K * 1,9 

ARRAY  1 (J,K  ,L)  * ARRAY  1 (J,K,L>  * VALUES(K,LI 

ZOS  CONTINUE 
Z10  CONTINUE 

C MRITF(6,999>  II,  J,  ARR  A Y 1 ( J , 1 , 3 1 , VALUFS(1,3> 

999  FORMATdH  , 7HYFAR  * , 13,  ZX,  6 H GROUP  , IZ,  ZX  , AHARRAY  * F9.1, 
1 ZX.9MVALUES  * , F9.1) 

GO  TO  SS 

C 

ZZO  DO  Z30  L * 1,Z0 

DO  ZZS  K =1,9 

ARR  AY7(J,K,L)  = ARR  AYZ(J,K,L)  * VALUES(K.L) 

ZZS  CONTI NUF 


SUHH 

10 

SUHH 

ZO 

SUHH 

30 

SUHH 

<•0 

SUHH 

so 

SUHH 

60 

SUHH 

70 

SUHH 

80 

SUHH 

90 

SUHH 

100 

SUHH 

110 

SUHH 

1Z0 

SUHH 

130 

SUHH 

mo 

SUHH 

ISO 

SUHH 

160 

SUHH 

170 

SUHH 

1A0 

SUHH 

190 

SUHH 

ZOO 

SUHH 

Z10 

SUHH 

ZZO 

SUHH 

Z 3 0 

SUHH 

ZSO 

SUHH 

ZSO 

SUHH 

Z60 

SUHH 

Z70 

SUHH 

Z90 

SUHH 

300 

SUHH 

3Z0 

SUHH 

330 

SUHH 

JSO 

SUHH 

360 

SUHH 

3 7 0 

SUHH 

380 

SUHH 

390 

SUHH 

400 

SUHH 

M0 

SUHH 

4Z0 

SUHH 

6 J 0 

SUHH 

460 

SUHH 

4 S 0 

SUHH 

460 

SUHH 

4 70 

SUHH 

480 

SUHH 

490 

SUHH 

SOO 

SUHH 

S10 

SUHH 

SZO 

SUHH 

SJ0 

SUHH 

S40 

SUHH 

sso 

SUHH 

S60 

SUHH 

S 7 0 

SUHH 

sso 

SUHH 

S90 

SUHH 

600 

SUHH 

610 

SUHH 

6Z0 

169 
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230 

CONTINUE 

SUNN 

630 

c 

WRITE(6,999>  II,  J,  A RR A Y 2 ( J , l , 3 ) , VALUES(1,3) 

SUMM 

640 

GO  TO  55 

SUNN 

650 

c 

SUNN 

660 

2 40 

00  250  l = 1,20 

SUNN 

670 

00  245  K - 1,9 

SUNN 

680 

ARRAY3C J,K,L>  = ARR  A Y 3 ( J , K , L 1 ♦ VALUES(K,l> 

SUNN 

690 

245 

CONTI NUE 

SUNN 

700 

2 SO 

CONTINUE 

SUNN 

710 

c 

MR  ITE  (6,999)  II,  j,  A RP A Y 3 < J , 1 , 3 > , VAIUES<1,3) 

SUNN 

720 

GO  TO  55 

SUNN 

730 

c 

SUNN 

740 

2 60 

00  270  L = 1,20 

SUNN 

750 

03  265  K = 1,9 

SUNN 

760 

ARR  A Y4 ( J , < ,L ) = ARR AY 4 ( J , K , l ) ♦ VALUES(K,L) 

SUMH 

770 

265 

CONTINUE 

SUNN 

780 

270 

CONTINUF 

SUNN 

790 

c 

MRI TE (6 , 999)  II,  J,  ARR AY4 ( J , 1 , 3)  , VAIUESC1,3> 

SUNN 

«00 

GO  TO  55 

SUNN 

810 

c 

SUNN 

820 

280 

00  290  l = 1,20 

SUNN 

830 

00  285  K = 1,9 

SUNN 

840 

ARRAYS(JfK,D  = APR  A Y 5 ( J # K , L ) ♦ VALUES(K,L) 

SUNN 

850 

285 

CONTINUE 

SUNN 

860 

290 

CONTINUE 

SUNN 

870 

c 

WRI TE 1 6 , 999)  II,  J,  APR  A Y5 ( J , 1 , 3)  , VALUES(1,3) 

SUNN 

880 

55 

CONTINUE 

SUNN 

890 

RETURN 

SUNN 

900 

ENO 

SUNN 

910 

170 


a o o 
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SUBROUTINE  TITLE 

(JOPT,  ID  > 

TITL 

10 

TITL 

20 

SUBROUTINE  TO 

WRITE  CORRECT  TITLE  ACCOROING  TO  THE  OPTION 

TITL 

30 

TITL 

<•0 

CQNNON/ 1 OE  NT/CO HE NT (SI*  OA  7E  C 3) 

TITL 

SI 

TITL 

60 

CALL  ME  AOER ( 2 , IC 

1,  JOPTI 

TITL 

7 0 

IFIJOPT.NF.il  GO 

TO  10 

TITL 

SO 

NRITE<6,100I 

TITL 

90 

100  FORMAT  1 1H  , LOT, 

ASHTOTAL  DIRECT 

REPAIR  NANOAYS  BY  SMBS 

ANO  SHOPS 

TITL 

100 

1 . / > 

TITL 

110 

RETURN 

TITL 

120 

10  IF1 JOPT.NE.?)  GO 

TO  ?0 

TITL 

130 

NRITFIb.lOtl 

TITL 

ISO 

101  FORNAT11H  , LOT, 

arhtotal  oirect 

ALTERATION  NANOAYS  BY 

SMBS  ANO  SHTITL 

ISO 

10PS,  / 1 

TITL 

160 

RETURN 

TITL 

170 

eO  IF( JOPT.NE. Jl  GO 

TO  30 

TITL 

ISO 

NRITEtb.lO?) 

TITL 

190 

tOZ  F0RNAT11H  , ISX, 

hOMTOTAL  DIRECT 

REPATR  ANO  ALTERATION 

NANOAYS  BY 

TITL 

200 

1SMBS  AND  SHOPS,  / 

' 1 

TITL 

210 

30  RETURN 

TITL 

220 

FNO 

TITL 

230 

171 
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SUBROUTINE  YONOdYO,  10) 

YONO 

10 

YONO 

20 

SUBROUTINE  TO  ASSIGN  A NUHBER  TO  EACH  YARD 

FOR 

YONO 

30 

REPORT  IDENTIFICATION 

YONO 

NO 

YONO 

SO 

RE  Al • 8 I Y 0 , ICHASN,  LBECH,  HARE,  NORVA,  IPfARL, 

IPHIL*,  IPTSHM, 

• ••• 

GO 

I PUGET 

• ••• 

70 

YONO 

• 0 

OATA  ICMASN/5MCHASN/ 

YONO 

90 

OATA  LBECH/SHLBECH/ 

YONO 

100 

OATA  HARE/SHHARE  / 

YONO 

110 

OATA  NOR  V A/SMftOR VA/ 

YONO 

120 

OATA  IPEARL/SHPERAL/ 

YONO 

130 

OATA  IPHILA/SHPHILA/ 

YONO 

IN  0 

OATA  IPTSHH/SHPTSHH/ 

YONO 

ISO 

OATA  IPUGET/SHPUGET/ 

YONO 

INC 

YONO 

1 T 0 

IFC IYO.EQ. ICHASN)  10  = 1 

YONO 

180 

IFC I YO.EQ . LBECH)  10  * 2 

YONO 

190 

IFIIYO.EO.  HARE)  10  * 3 

YONO 

200 

IF (IYO.EQ*  NORVA)  10  * N 

YONO 

210 

IF( IYO.EQ. IPEARL)  10  * 5 

YONO 

220 

IFCIYO.EQ. IPHIL A)  10  * 6 

VDNO 

230 

IF( IYO.EQ. IPTSNH)  10  * 7 

YONO 

?N  0 

IF( IYO.EQ. IPUGET)  10  * 8 

YONO 

2S0 

RETURN 

YONO 

260 

END 

YONO 

2 T 0 

SUBROUTINE  YEAR 

(IEYR, IY0YR) , RETURNS <NOYE»R) 

10 

••  SUBROUTINE  YEAR 

(IFYR.IYOYR,** 

• ••» 

20 

YEAR 

30 

SUBROUTINE 

TO  SEE  IE  THE  YE»R  ON  THIS  0»TA  RECORD  IS 

YEAR 

NO 

ONE  THAT 

NEEDS  TO  BE  PROCESSED 

YEAR 

so 

YEAR 

60 

OIHENSION  IYOVR 

( S> 

YEAR 

7 0 

YEAR 

80 

00  10  I * 1,S 

YEAR 

90 

IF( IFYR.EQ.IYOVR(I) ) RETURN 

YEAR 

100 

10  CONTINUE 

YEAR 

110 

RETURN  NOYEAR 

• ••  • 

120 

•••  RETURN  1 

• ••  • 

130 

ALTERNATE  i 

RETURN  GOES  TO  REAO  THE  NEXT  RFCORO 

YEAR 

1 NO 

END 

YEAR 

ISO 

i 

■ 
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Common  Block  1DATA. 
GRPDEF(100,6,2) 


I YARD (13) 
I\T>SFI.(  l 5) 

Common  Clock  (PENT 
COMFWT(  5) 

DATE ( 3 ) 

Cannon  E-lock  CISC 
IYCPP(  1 i,2  5) 

JGPCXTl  25) 
KGROPP(25) 
MCFtOJP(25) 

C orrrron  Block  REE 
I MULL ( 100,6,2) 


ISCItM  100,6,2) 


COMMON  VARIABI  ES 


Array  °*  ship  grouo  definitions  in  which  the  first 
subscript  refers  to  the  group  nurrber , the  second 
to  the  ship  type  ana  hull  nurrber,  ana  the  third 
to  (1)  lower  bound  of  a set  and  (2)  upper  bouna 
of  that  set. 

Array  of  yard  names  for  a given  sector. 

Array  ot  yarns  to  bo  processed. 


Array  ot  report  iaent it icat ion  information. 
Array  containing  the  date  of  the  run. 


Array  ot  group  numbers  in  which  the  first  subscript 
refers  to  the  yard  name  and  the  second  to  the  group 
number  to  be  processed. 

Array  ot  matching  group  numbers  tor  a specific  yard. 
Array  ot  group  numbers  reouireci  tot  a specific  vard. 
Array  ot  matching  group  numbers  tor  a specific  record. 


Array  ot  hull  numbers  in  which  the  first  subscript 
refers  to  the  group  number,  the  second  to  the  hul  1 
number,  and  the  third  to  (1)  the  lowet  bound  ter  a set 
and  (2)  an  upper  t'ouna  tor  that  sot. 

Array  of  shir  tvpes  in  which  the  first  subscript 
refers  to  the  group  number,  the  second  to  the  shir 
ana  the  third  to  (1)  a lower  bound  tot  a set 
and  (2)  an  urtvr  houno  toi  that  set. 


■ 

- - X.  ' | 

Common  Block  /WORK/ 

i 

3 

S 

ARRAY1 ( 2 5,9 ,20 ) 

Array  of  airect  labor  mandays  for  the  first  year 
reauested;  the  first  subscript  refers  to  the  arouo 
number,  the  second  to  the  nine  single-digit  SWBS 
categories,  and  the  third  to  the  20  shops. 

} 

1 

APRAY2 ( 2 5,9 ,20) 

Array  of  direct  labor  manoays  for  the  second  year 
requested;  the  first  subscript  refers  to  the  group 
number,  the  secono  to  the  nine  single-digit  SWBS 
categories,  and  the  third  to  the  20  shops. 

APFAY3(2b,9,20) 

Array  of  direct  labor  manoays  for  the  third  year 
reauestea;  the  first  subscript  refers  to  the  croup 
number,  the  second  to  the  nine  single-digit  EKES 
categories,  ana  the  third  to  the  20  shops. 

ARRAY 4 (25,9 ,20 ) 

Array  of  direct  labor  manoays  for  the  fourth  year 
reauested;  the  first  subscript  refers  to  the  aroup 
number,  the  second  to  the  nine  single-digit  SWBS 
categories,  ana  the  third  to  the  20  shoes. 

ARPAY5( 25,9 ,20 ) 

Array  of  direct  labor  mandays  for  the  fifth  year 
reauested;  the  first  subscript  refers  to  the  group 
number,  the  second  to  the  nine  single-aigit  SWBS 
categories,  ana  the  third  to  the  20  shops. 

VAIUES(9,20) 

Array  of  direct  labor  manoays;  the  first  subscript 
refers  to  the  nine  single-aiait  SWBS  categories 
ana  the  second  to  the  20  shops. 

Common  Block  /V At,/ 

SUMSHIFf 9 ) 

Array  of  total  direct  labor  manoays  for  the  nine  SWBS 
categories. 

SUMWBS(20) 

At  rav  of  total  direct  labor  manoays  for  the  20  shoos. 

TOT 

Total  airect  labor  rranaays  for  a given  yaro  ana 
year . 

t 

■ VALYR(9,20) 

Array  of  direct  labor  manoays  tor  a given  year;  the 
first  subscript  refers  to  the  nine  single-oicit 

SWBS  categories  and  the  second  to  the  20  shops. 
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I/OCAL  VARIABLES 


Main  Program 


COAST 


I AL.I . ( 1 5) 


l DUMMY 


IF1RST 


I GROUP 
IGRPNO( 100) 


1 1 on’ 1 1 f>) 


I IT(  1 •>) 


Variable  used  to  reouest  the  summary  ol  data  tor  an 
ent ire  yard. 

Variable  usea  to  reouest  computation  of  alteration 
data. 

Coast  (east  or  west). 

DO- loop  index. 

Array  used  to  determine  whether  the  entire  yarn  is  to 
be  sunrned. 

Variable  containing  the  character  "A". 

Continuat ion  indicator. 

Variable  set  equal  to  the  number  of  yards  room  rod  ana 
decremented  as  each  one  is  completed. 

Dummy  variable  used  in  readme  the  second  of  a paii  of 
group  del  in  it ion  earns. 

Dummy  variable  used  in  re-reading  group  definition 
cards  tor  print-out. 

Availability  end  date  (mo  ciy  yr). 

Flag  set  to  "1”  after  reading  first  record  of  a yard; 
otherwise  set  to  "U". 

Fiscal  year  for  this  record. 

Group  number  read  from  SWPS-Shop  Mati ix  File. 

Array  of  group  numbers  identifying  groups  in  Group 
Del  in  it  ion  Deck. 

Subscript  designating  a specific  yam. 

Counter  used  to  determine  number  of  yards. 

Array  of  options  used  when  the  S^PS-Shop  Mafiix  File 
was  created. 

Array  of  options  teeniest* xi  lot  a given  yam. 

Period  (this  record). 

Variable  containing  the  charactei  "F" . 

Vai  lal  le  containing  the  diameters  "ggggg". 

Gho;  numlier. 

Ship  type  ano  hull  number  read  as  a sinole  variable 
1 1 v n.  the  SdlS-Shop  Mat  i ix  File. 


» 


Main  Program  (Cont inueo) 


ISPFC  Specialization  category. 

ISTRT  Availability  start  date  (nto  ny/yi ) . 

I TOT  Variable  contain  ire;]  the  character  "T". 

ITYPWK  Type  ot  work. 

I YD  Yard  name  read  t run  SWBS-Shop  Matrix  File. 

IYDP  Yard  name  (ot  previous  yard). 

IYDYR( b)  Array  ot  years  tor  a specific  yard. 

I YFAR(  1 •>, •>)  At  i ay  ot  years;  the  t irst  subscript  refers  to  the  yard 

and  the  second  to  the  year. 

I YEAR 1 First  tiscal  year  ot  the  t.RPS  projection. 

J DO- loop  index. 

JJ  Counter  used  to  determine  the  number  ot  a roups  to  L>e 

processed. 

JJJOPT  Option  tor  a specific  yard. 

JJOPT  Option  used  in  creating  the  SWBS-Shop  Matrix  File. 

JOPT  Type  ot  report  i equestea  ten  a specific  yard. 

K DO- loop  inoex. 

KK  Flag  when  set  to  "0",  aroups  are  summed,  but  not 

entire  yard;  when  set  tv'  "1",  entire  yarn  rs  summed 
but  not  viroups;  when  set  tv'  "2",  entire  yard  anil 
groups  are  summed. 

KKK  Subscript  designation  a sfX'c l t 1 c yarn. 

KOIvr  Flag  set  to  "1"  it  entire  yard  is  to  be  processed, 

otherwise  set  to  "0". 

L DO- loop  inoex. 

[AST  Variable  containing  the  characters  "LAST1  a no  used  in 

testing  termination  ot  input  data. 

M DO- loop  index. 

MYFAR  Number  ot  years  to  ix'  processed  tot  a spec i tic  yarn. 

NGFOUF  Number  ot  groups,  tv'  be  processed  t or  a specific 

yard. 

NORPS(2b)  Array  ot  numbei  ot  groups  tot  a spec  it ic  yard. 

NYDS  Total  number  ot  yards  to  tie  processed. 

NYEARS(lb)  Array  containing  the  numbei  ot  years  to  t>o  processed 

tor  a specific  yard. 

OWN  Yard  ownership  inciicatot  (Navy  i'i  pt  tvate). 


Main  Program  (Continued) 


PEP 

Variable 

used  to 

te 

st  for 

computing 

repairs. 

TOTAL 

Variable  used  to  test 
repairs  and  alterations. 

for 

computing  the  total  i 

ZALL 

Var iable 

used 

to 

test 

for 

the 

characters 

"ALL 

ZAIjT 

Variable 

used 

to 

test 

tor 

the 

characters 

"ALT 

ZRF.P 

Var iable 

used 

to 

test 

for 

the 

character s 

"REP 

ZTOT 

Var iable 

usea 

to 

test 

for 

the 

characters 

"TOT 

B Subroutine  COMPAR 

I 

I FLAG 

IGRPNO(IOO) 

I SHULL 
J 
K 

NGROUP 

Subroutine  H FADER 

ID 
I DP 
I PAGE 
JOPT 


. U f.  ut  trie  [ERROR 

I dpi  Double  precision  vai  i.U'L  used  to  transfet  yard  names 

for  eri  or  messages. 
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Identification  number  assigned  to  each  yard. 

Yard  identification  number  (ot  previous  recoro). 

Variable  useo  to  increment  pane  numbers. 

Variable  used  to  identity  type  of  report, 
when  set  to  "1",  repairs  are  reported  on; 
when  set  to  "2",  alterations  are  rerouted  on; 
when  set  to  "J",  a total  ot  repairs  and  alterations 
are  reported  on. 

Pace  count ei . 


DO- loop  index. 

Flag  set  to  "1"  after  finding  an  agreement  between  the 
group  numbers  to  be  processeo  and  the  group  numbers 
identifying  the  group  definition  data  base. 

Array  ot  group  numbers  identifying  groups  in  Group 
Definition  Deck. 

Ship  type  and  hull  number,  reaa  as  a single  variable. 
DO- loop  index. 

DO- loop  index. 

Number  of  groups  to  be  processeo  for  a specific  yard. 


Subroutine  I ERROR  (Cont inued) 


I DUMMY 


Single  precision  variable  usea  to  transfer  group 
number  tor  error  messages. 

Error  number. 


Subroutine  NOSH IP 


I BLANK 


Four-character  blank  space. 

Subscript  designating  a specil ic  group  number  in  the 
ISHIP  a tx i I HULL  arrays. 

DO- loop  inoex. 

Subscript  designating  a specific  ship  tvpe  aixi  tin  1 1 
number  in  the  ISHIP  ana  IHUI.L  arrays. 

Implied  PO-loop  index. 

Index  used  tor  I 0 statements. 


Subroutine  RETORT 


I Inoex  tor  fiscal  vear. 

ID  Ident it lcat ion  numix?t  assigned  to  a specific  yard. 

II  Control  variable  designating  the  year  in  a "computed 

go  to". 

I YD  Yard  name  being  processed. 

IYPYR(b)  Array  of  years  tor  a specif ic  yard. 

J DO- loop  tixiex. 

JJ  Flag  tor  group  number. 

JOPT  An  option  tor  a specific  yard, 

Vvhen  set  to  "1",  repairs  only  ate  reported  on; 

when  set  to  "2",  alterations  only  are  reported  on; 
when  set  to  "1",  a total  of  repairs  ana  alterations 
ate  reported  on. 

KK  Group  number  requested  for  which  there  were  no  data. 

KOPT  Flag  set  to  "1"  if  entire  yard  is  to  be  processed; 

otherwise  set  to  "0". 

L PO-loop  index. 

LL  Index  tor  group  lumbers. 

M DO- loop  inoex. 


Subroutine  REPORT  (Continued) 


MY  EAR 
NO ROUP 


Number  of  years  to  be  processed  tor  a specific  yara. 
Number  ot  qronps  to  be  processea  tor  a specitic  yard. 


Subroutine  RE.Pl 


ISHP(20) 
1 SWBS ( M ) 


Array  ot  shop  nimbors. 
Array  of  SWBS  numbers. 
Index  tor  I/O  statements. 
DO  loop  index. 

Index  tor  1 0 statements. 


Subroutine  SEARCH 


DO- loop  index. 

Argument  useo  in  transferring  subscript  ot  required 
yard. 

Yard  name  being  procesed. 

DO  loop  index. 

Argument  used  in  transferring  subscript  ot  yara  read 
from  the  header  record. 

Total  number  ot  yards  to  be  processed. 


Suoroutine  SKPSEC 


I SHULL 
ITYPWK 


Dummy  argument  in  TERROR  subroutine. 

Vai lable  containing  the  characters  "ggggg" 
Ship  type  and  hull  number. 

Type  ot  work. 

Yard  name  being  processed. 

Yard  name  (ot  previous  record). 


Subroutine  SKPYD 


I SHULL 


Dummy  argument  in  I ERROR  subrout  ini' 
Ship  type  and  hull  number. 


Subroutine  SKPYD  (Continuea) 

ITYPWK  Type  ot  work. 

IYD  Yara  name. 

IYDP  Yard  name  (ot  previous  record). 

Subrout ine  SU M 

I 

IFYH 

II 

I YDYR ( 5) 

J 

JJ 
JJJ 
K 

KK 


KKK 

KOPT 

L 

LLL 

NGROUP 


Suoroutine  TITLF 
ID 

JOPT 
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laentit  ication  number  assignee  to  a yard. 

Option  for  a specific  yard. 

When  set  to  "1",  repairs  are  reported  on; 
when  set  to  "2",  alterations  are  reported  on; 
when  set  to  "3",  a total  of  repairs  and  alterations 
are  reported  on. 


DO- loop  index. 

Fiscal  year  for  this  record. 

Control  variable  used  in  designating  the  reouireo  year 
in  a "computed  go  to". 

Array  ot  years  for  this  yard. 

DO- loop  index. 

Subscript  used  in  matching  group  numbers. 

Initial  parameter  of  DO-loop. 

DO- loop  index. 

Flag  when  set  to  "0",  groups  are  summed  but  not  entire 
yard;  when  set  to  "1",  entire  yard  is  summea  but  not 
groups;  when  set  to  "2",  entire  yard  ano  groups  are 
summed . 

Control  variable  in  "computed  go  to". 

Flag  set  to  "1"  it  entire  yard  is  to  be  processed, 
otherwise  set  to  "0". 

DO-loop  inoex. 

Terminal  parameter  of  DO-loop. 

Number  of  groups  to  be  processed  for  a specitic 
yarn. 


Subroutine  YDNO 


ICHASN 

Variable 

containing 

the 

characters 

"CHASM" . 

ID 

Identification  number  assigneo  to  a 

i yard. 

I PEARL 

Variable 

containing 

the 

characters 

"PEARL" . 

IPHILA 

Variable 

containing 

the 

characters 

"PH I LA". 

IPTSMH 

Var iable 

containing 

the 

characters 

"PTSMH" . 

IPUGCT 

Variable 

containing 

the 

characters 

"PUGET". 

IYD 

Yard  name  being  processed. 

LBFCH 

Variable 

containing 

the 

characters 

"LB ECU". 

MARE 

Variable 

containing 

the 

characters 

"MARE". 

NORVA 

Var iable 

containing 

the 

characters 

"NORVA". 

Subroutine  YEAR 


I 

IFYR 
IYDYR( 5) 


DO- loop  index. 

Fiscal  year  for  a given  record. 
Array  of  years  for  a given  vara. 
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0.4.7  SAMPLE  RUN 

A Group  Definition  Deck,  a Header  Caro  and  a Yard  Option  Deck 
tor  moo  the  card  input  (unit  5)  to  the  proqram  RFPMAT.  The  SWUS-Shop 
Matrix  File  (unit  6)  was  created  by  program  XPLODF  tor  srecitic  yarur. 
ana  options.  For  the  sample  run,  Norfolk  Shipyard  was  selected  to  be 
"exploded"  ana  a tile  was  created  for  the  total  ot  repair  anct  alteration 
manaays.  For  each  record  on  the  Depot  Maintenance  Assignment  File  (DKAF) , 
the  SWBS-Shop  Matrix  tile  contained  a record  resets. m lor  naterial  costs 
ana  one  record  ot  SWBS  data  tor  each  ot  the  2d  shops.  The  sample  input 
shows  a header  record  tor  Norfolk  and  data  tor  two  DMA.F  records.  The 
yard  option  card  requested  that  a SWBS-Shop  Matrix  be  projected  for 
Norfolk  tor  total  manaays.  In  addition,  the  summation  ot  total  wot k 
to  t>e  performed  in  the  yard  was  reouested.  This  option  disregards  any 
ship  groupings  ami  produces  a SWRS-Shop  Matrix  report  tor  the  given  yard 
and  year . 

SWBS- Shop  Matrix  reports  are  10-by— 20  matrices  m which  the  rows 
reflect  the  work  projected  for  SWBS  categories  and  the  columns  show  shop 
manaays.  For  example,  in  the  summation  martrix  tor  Norfolk,  the  portion 
ot  work  projected  for  SWBS  3 and  Shop  18  is  2514  manaays.  Group  1 was  a 
group  of  all  CGN's  and  was  defined  as  CGN  l through  CCN  4999.  The  nine 
SWBS  values  tor  each  shop  are  totaled  and  these  values  correspond  to  the 
report  produced  by  RFPSHOP  for  the  same  group  numbet  and  year  (Section 
6.1.7). 

Group  3 was  a group  ot  carriers  in  the  CV  59  class  and  haa  a hull 
number  lower  bound  ot  59  and  an  upper  bound  ot  62.  This  same  grouping 
was  used  in  reports  prcxiuced  by  program  RKPWBS. 

In  the  SWRS-Shoo  Matrix  reports,  14  shops  are  summed  ana  totals 
are  tabulated  tor  each  SWBS  category.  Comparisons  may  he  made  with  the 
projections  in  reports  produced  by  RKPWBS  tot  Norfolk  (Section  6.3,7), 


Ik 
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Unit  5 - Card  Inputs 


1 

1 

CGN 

1 

CGN 

9999 

2 

2 

CGN 

35 

CGN 

35 

3 

CV 

59 

CV 

62 

3 

-1 

09/08/77  OMPPS  SAMPLE  RUN 

NORVA  ALL  T 8 

NORVA  1 3 

LAST 
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Unit  6 - SWBS-Shop  Matrix  Reports 
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DTNSRDC  ISSUES  THREE  TYPES  OF  REPORTS 

1 DTNSRDC  REPORTS.  A FORMAL  SERIES.  CONTAIN  INFORMATION  OF  PERMANENT  TECH 
NICAL  VALUE.  THEY  CARRY  A CONSECUTIVE  NUMERICAL  IDENTIFICATION  REGARDLESS  OF 
THEIR  CLASSIFICATION  OR  THE  ORIGINATING  DEPARTMENT. 

2.  DEPARTMENTAL  REPORTS.  A SEMIFORMAL  SERIES.  CONTAIN  INFORMATION  OF  A PRELIM 
INARY.  TEMPORARY.  OR  PROPRIETARY  NATURE  OR  OF  LIMITED  INTEREST  OR  SIGNIFICANCE. 
THEY  CARRY  A DEPARTMENTAL  ALPHANUMERICAL  IDENTIFICATION. 

3.  TECHNICAL  MEMORANDA,  AN  INFORMAL  SERIES.  CONTAIN  TECHNICAL  DOCUMENTATION 
OF  LIMITED  USE  AND  INTEREST.  THEY  ARE  PRIMARILY  WORKING  PAPERS  INTENDED  FOR  IN 
TERNAL  USE.  THEY  CARRY  AN  IDENTIFYING  NUMBER  WHICH  INDICATES  THEIR  TYPE  AND  THE 
NUMERICAL  CODE  OF  THE  ORIGINATING  DEPARTMENT.  ANY  DISTRIBUTION  OUTSIDE  DTNSRDC 
MUST  BE  APPROVED  BY  THE  HEAD  OF  THE  ORIGINATING  DEPARTMENT  ON  A CASE  BY  CASE 
BASIS. 


